Пожаловаться
- 13.09.2018 18:23
- Информатика
- remove_red_eye 13629
- thumb_up 13
Ответы и объяснения 1
1.program prim;
var a,b:integer;
begin
write ('введите расстояние в сантиметрах');
readln(a);
b:=a mod 100;
writeln(b, 'метров');
readln;
end.
3.
Program Task2_2a;
uses WinCrt;
var
n, p, n1 : longint;
begin
write('Введите натуральное число '); readln(n);
n1 := 0;
while n > 0 do
begin
n1 := n1*10 + n mod 10;
n := n div 10
end;
writeln('Число, после перестановки цифр равно ', n1)
end.
var a,b:integer;
begin
write ('введите расстояние в сантиметрах');
readln(a);
b:=a mod 100;
writeln(b, 'метров');
readln;
end.
3.
Program Task2_2a;
uses WinCrt;
var
n, p, n1 : longint;
begin
write('Введите натуральное число '); readln(n);
n1 := 0;
while n > 0 do
begin
n1 := n1*10 + n mod 10;
n := n div 10
end;
writeln('Число, после перестановки цифр равно ', n1)
end.
Пожаловаться
- 14.09.2018 18:02
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы