СРОЧНО?

Kuznecovaleksander 18 янв. 2022 г., 13:05:54

Program n12 ;

var x, y : real ;

begin

writeln('Введите x и y') ;

readln(x, y) ;

if x.

Алина2187 1 янв. 2022 г., 15:00:02 | 10 - 11 классы

Перепишите программу на Паскале, исправив ошибки :Program massiv ;Var a : array( - 10?

Перепишите программу на Паскале, исправив ошибки :

Program massiv ;

Var a : array( - 10.

10) of integer ;

Begin For i : = 1 to 20 Do Read(a[i]) ; For i : = 1 to 20 Do a[i] : = a[i] / 10 ;

For i : = 1 to 20 Do Write(a[i])

End.

Кротова 8 янв. 2022 г., 22:09:42 | 5 - 9 классы

Пожалуйста помогите?

Пожалуйста помогите!

Найдите исправьте все ошибки, допущенные в этой программе.

Запишите программу без ошибок.

Var a ; b ; c : Integer ; d : real ;

Begin

Writeln('b = ?

', b)

Readln(b) ;

a = 10 ;

с : ab

Writeln(' a x b' равно' C) ;

d : = c div b ;

writeln(d)

End.

672242 13 янв. 2022 г., 20:28:23 | 10 - 11 классы

Задание 1?

Задание 1.

Помогите написать правильную программу в паскале.

Я написала, но с ответом не сходится, где ошибка?

Program var_21 ;

var x, C : integer ;

H : real ;

begin

write('ВВедите гипотенузу C треугольника : ') ;

read(C) ;

write('острый угол x (град) : ') ;

read(x) ;

H : = C * sin(x) * cos(x) ;

writeln('Высота треугольника равна', ' ', H : 5 : 2) ;

end.

Татьяна110 5 февр. 2022 г., 03:48:09 | 5 - 9 классы

Помогите найти ошибку (Информатика, Паскаль)?

Помогите найти ошибку (Информатика, Паскаль).

Var s, k, a : integer ;

Begin

s : = 0 ;

k : = 0 ;

Read(a) ;

while a0 do

Begin

if a mod 8 = 0 then

Begin

s : = s + a ;

k : = k + 1 ;

end ;

Readln(a) ;

end ;

var y : real ;

begin

y : = s / k ;

Read(s) ;

if s>0 then

Writeln(y)

else

Writeln('NO')

end ;

end.

Мулкина 10 янв. 2022 г., 15:58:17 | 1 - 4 классы

Какие операторы не правильные?

Какие операторы не правильные?

(В паскале) Преобразуйте в правильную программу.

Program qq ; var a, b : integer ; x, y : real ; begin a : = 5 ; 10 : = x ; y : = 7, 8 ; b : = 2.

5 ; x : = 2 * (a + y) ; a : = b + x ; end.

Arzni 4 февр. 2022 г., 15:08:15 | 10 - 11 классы

Перевод кода паскаль в c + +2)var i, sum : integer ;n : real ;beginsum : = 0 ;for i : = 1 to 15 dobeginreadln(n) ;if n = trunc(n) then sum : = sum + 1 ;end ;writeln(sum) ;end?

Перевод кода паскаль в c + +

2)var i, sum : integer ;

n : real ;

begin

sum : = 0 ;

for i : = 1 to 15 do

begin

readln(n) ;

if n = trunc(n) then sum : = sum + 1 ;

end ;

writeln(sum) ;

end.

2

Var

a1, b2, c, d : integer ;

begin

write('Введите числа через пробел : ') ;

read(a1) ;

for d : = 2 to 10 do begin

read(b2) ;

if b2>a1 then inc(c) ;

a1 : = b2 ;

end ;

if c = 9 then writeln('Да') else writeln('Нет') ;

end.

Idibek1 17 мар. 2022 г., 17:00:02 | 5 - 9 классы

Program Dvch ;var N : integer ;beginwriteln('Введите число N') ;readln(N) ;If (N>9) and (N?

Program Dvch ;

var N : integer ;

begin

writeln('Введите число N') ;

readln(N) ;

If (N>9) and (N.

Doooooos2016 24 мар. 2022 г., 08:38:40 | 10 - 11 классы

СрочноProgram sredarifment ;Var a : array[1?

Срочно

Program sredarifment ;

Var a : array[1.

10] of real ;

i, k : integer ;

C, S, sred : real ;

Begin

For i : = 1 to 10 do begin write ('a[', i, '] = ') ; readln (a[i]) ; end ;

write('введите C : ') ; readln (C) ;

For i : = 1 to 10 do begin If a[i]>C then begin S = S + a[i] ; K = K + 1 ; end ; end ;

sred = S / k ;

Writeln('среднее арифметическое чисел, превосходящих ', C, ' равно ', sred) ;

End.

Помогите чтобы программа запускалась.

Выходит что не верно.

Daydostup 3 апр. 2022 г., 20:59:45 | 5 - 9 классы

Дана программа :Program chisla ;vara, b, c, d : integer ;begin writeln ('Введите a : ') ; readln (a) ; writeln ('Введите b : ') ; readln (b) ; c : = sqr(a + b) ; d : = sqr(a) + sqr(b) ; writeln ('Квад?

Дана программа :

Program chisla ;

var

a, b, c, d : integer ;

begin writeln ('Введите a : ') ; readln (a) ; writeln ('Введите b : ') ; readln (b) ; c : = sqr(a + b) ; d : = sqr(a) + sqr(b) ; writeln ('Квадрат суммы : ', c) ; writeln ('Сумма квадратов : ', d) ;

End.

СОСТАВЬТЕ БЛОК - СХЕМУ.

Антонинка1230 27 июн. 2022 г., 21:01:21 | 10 - 11 классы

Program a2 ;var a, b, c, min : real ;beginwriteln('Введите три числа') ;readln(a, b, c) ;min : = a ;if bif cwriteln('min = ', min)end?

Program a2 ;

var a, b, c, min : real ;

begin

writeln('Введите три числа') ;

readln(a, b, c) ;

min : = a ;

if b

if c

writeln('min = ', min)

end.

КАК РЕШАТЬ?

А)а = 10, b = 5 и с = 1

Б)а = 10, b = 5 и с = 7

В)а = 2, b = 10, с = 5.