Вопрос по информатике:
Найти и исправить ошибки в программе.
Задача 4-1
proram Z;VAR n,m: char;BEGINwrite(n -> ); readln(m)m:=1;while sqr(m)>=n do m:=m+1;writeln(m);END
Задача 4-2program
Д;BEGINVAR i,n,k,a: integer;readln(n); k:=0;for i:=1 to n doreadln(a);if a > 0 then k:=k+1;end;wreteln(k = ',k:0:2);END.
Задача 4-3
program W;VAR max;a: integer; n: longint;BEGINwrite('n -> '); readln(n);max:=10;while n <> 0 begina:=n mod 10;if a > max;then max:=a;n:=n mod 10;endreadln(max);END
- 21.04.2015 01:19
- Информатика
- remove_red_eye 5781
- thumb_up 17
Ответы и объяснения 1
Как-то так:
program Z;
var
n, m: Byte;
begin
write('n = ');
readln(n);
m:=1;
while sqr(m)>=n do m:=m+1;
writeln('M = ', m);
end.
Задача 4-2:
program D;
var
i,n,k,a: integer;
begin
write('n = ');
readln(n);
k:=0;
for i:=1 to n do
begin
readln(a);
if a > 0 then k:=k+1;
end;
wreteln('k = ', k:0:2);
end.
Задача 4-3:
program W;
var
max, a: integer;
n: longint;
begin
write('n = ');
readln(n);
max:=10;
while n 0 do
begin
a:=n mod 10;
if a > max then max:=a;
n:=n mod 10;
end;
readln(max);
end.
- 22.04.2015 01:29
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.