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

Гооррн 10 янв. 2022 г., 15:58:22

Строка №6 - числу нельзя присвоить какое нибудь значение.

Строки №8 и №10 - целочисленным нельзя присвоить дробное значение.

Строка №7 - между 7 и 8 должна стоять точка, а не запятая.

Вот изменённая программа :

program qq ;

var a, b, x, y : real ;

begin

a : = 5 ;

x : = 10 ;

y : = 7.

8 ;

b : = 2.

5 ;

x : = 2 * (a + y) ;

a : = b + x ;

end.

Екатерина29051999 2 янв. 2022 г., 14:32:50 | 10 - 11 классы

Определите, какое число будет напечатано на экране в результате выполнения следующей программы :var a, b : integer ;begin a : = 0 ; b : = 2 ; while b < 32 do begin a : = a + 1 ; b : = b * 2 ; end ; wr?

Определите, какое число будет напечатано на экране в результате выполнения следующей программы :

var a, b : integer ;

begin a : = 0 ; b : = 2 ; while b < 32 do begin a : = a + 1 ; b : = b * 2 ; end ; writeln(a) ;

end.

Алина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.

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.

Сурок228 2 февр. 2022 г., 14:17:32 | студенческий

Определите число : которое будет напечатано в результате выполнения программы (с помощью языка программирования Паскаль)var n, s : integerbeginn : = 0 ;s : = 402 ;while s>0 dobegins : = s - 10 ;n : = ?

Определите число : которое будет напечатано в результате выполнения программы (с помощью языка программирования Паскаль)

var n, s : integer

begin

n : = 0 ;

s : = 402 ;

while s>0 do

begin

s : = s - 10 ;

n : = n + 3

end ;

write(n)

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.

123456789784 18 янв. 2022 г., 13:05:49 | 1 - 4 классы

СРОЧНО?

СРОЧНО!

Помогите исправить ошибки в программе

program n12 ; var x : y ; real :

begin write ; ('Введите x и y') ; readln(x и y) ; if x.

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.

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

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

Gork345 3 мая 2022 г., 18:04:33 | 5 - 9 классы

Помогите с Паскалемconst N = 40 ;vara : array[1?

Помогите с Паскалем

const N = 40 ;

var

a : array[1.

N] of integer ;

i, j, s : integer ;

st : real ;

begin

for i : = 1 to N do readln(a[i]) ;