1)найдите ошибки в программе и запишите правильный вариант var a,b,i,x: real; begin read(x); a: =x; for i: =1 downto b do begin i: =i+3; a: = a/2; x: =x+a; end; write(x); end. 2) рассмотрите фрагмент программы и ответьте что будет выведено на экран begin n: =5; k: =2; for a: =1 to n do begin x: =x*3; writeln(x); end; write(n); end; begin n: =4; a: =n; for x: =1 to n do a: =a-3; writeln(a); end;

Лиззовета Лиззовета    3   21.09.2019 21:30    36

Ответы
mrredis mrredis  27.08.2020 01:28
1. Вот так программа начала работать:

program jhk;
Var a,x:real;
i,b:integer;
Begin
writeln(x);
Read(x);
a:=x;
writeln(b);
For i:=1 downto b do
Begin
a:= a/2;
x:=x+a;
End;
i:=i+3;
write(x);
End.

В исходном состоянии были ошибки - смотри первый скрин.

2. Смотри второй скрин.

1)найдите ошибки в программе и запишите правильный вариант var a,b,i,x: real; begin read(x); a: =x;
1)найдите ошибки в программе и запишите правильный вариант var a,b,i,x: real; begin read(x); a: =x;
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика