- 18.07.2018 06:55
- Информатика
- remove_red_eye 19261
- thumb_up 33
Ответы и объяснения 2
Var a,a1,a2,a3,a4:integer;
begin
writeln('a=');readln(a);
a1:=a div 1000;
a2:=a div 100 mod 10;
a3:=a mod 100 div 10;
a4:=a mod 10;
writeln('цифры: ',a1:2,a2:2,a3:2,a4:2);
writeln('sum=',a1+a2+a3+a4);
end.
- 19.07.2018 21:03
- thumb_up 16
Var a,b,c,d,i:integer;
begin
writeln('Введите 4 Числа=');
readln (a,b,c,d);
i:=a+b+c+d;
writeln('Результат суммы=',c);
writeln(a,'+',b,'+'c','+'d=',i);
end.
- 20.07.2018 19:34
- thumb_up 23
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.