Написать программу вычисления расстояния между населенными пунктами, изображенными на карте. ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделеныполужирным шрифтом вычисление расстояния между населенными пунктами. введите исходные данные: масштаб карты (количество километров в одном сантиметре) > 120 расстояние между двумя точками, изображающиминаселенные пункты (см) > 3.5 расстояние между населенными пунктами 420 км.
Ответы
Uses crt; var a,pr,n: integer; begin pr: =1; write('введите число: '); readln(a); while a> 0 do begin n: =a mod 10; if (n mod 2=0) and (n< > 0) then pr: =pr*n; a: =a div 10; end; writeln('произведение четных цифр числа: ',pr); end.
Var a, b: array [1..10] of integer; i, j: integer; begin j : = 1; for i : = 1 to 10 do read(a[i]); for i : = 1 to 10 do if (a[i] mod 2) < > 0 then begin b[j] : = a[i]; inc(j); end; for i : = 1 to 10 do write(a[i], ' '); writeln; for i : = 1 to j - 1 do write(b[i], ' '); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Файл прикреплён выше смотри заполните таблицу
Автор: mbobo28311
Нужно ответы по информатике, желательно с решением
Автор: ирина Альбертовна
var m,r: real;
begin
writeln('вычисление расстояния между населенными пунктами.') ; writeln('ведите исходные данные: '); writeln('масштаб карты (количество километров в одном сантиметре) > ');
read(m); writeln('расстояние между двумя точками, изображающими населенные пункты (см) > ');
read(r); writeln('расстояние между населенными пунктами ', m*r,' км.');
end.