Пожаловаться
- 22.12.2017 23:32
- Информатика
- remove_red_eye 3967
- thumb_up 5
Ответы и объяснения 2
Var a,b:integer;
begin
a:=-10;
b:=7;
while a<=10 do
begin
write('a = ',a:3,' b = ',b,' S = ',a+b:2,' R = ',a-b:2);
writeln;
a:=a+5
end
end.
begin
a:=-10;
b:=7;
while a<=10 do
begin
write('a = ',a:3,' b = ',b,' S = ',a+b:2,' R = ',a-b:2);
writeln;
a:=a+5
end
end.
Пожаловаться
- 23.12.2017 14:34
- thumb_up 38
Program fgg;
const
b = 7;
var
a, s, r: Integer;
begin
for a := - 10 to 10 do
Writeln('s=', a + b, ' ', 'r=', a - b);
a := a + 5;
end.
const
b = 7;
var
a, s, r: Integer;
begin
for a := - 10 to 10 do
Writeln('s=', a + b, ' ', 'r=', a - b);
a := a + 5;
end.
Пожаловаться
- 24.12.2017 09:41
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы