Написать программу вычисления расстояния между населенными пунктами, изображенными на карте. ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделеныполужирным шрифтом вычисление расстояния между населенными пунктами. введите исходные данные: масштаб карты (количество километров в одном сантиметре) > 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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Складіть проект для малювання п'яти однакових орнаментівв програм
Автор: testovvanya
До ть:повідомлення про якийсь додаток (будь який)
Автор: Advantage9111
не знаю как делать подскажите
Автор: Герасимова107
Составить программу которая вводит с клавиатуры 2 целых, одно дробное число и выводит на экран их разность и произведение
Автор: Melnik Kaveshnikova1746
var m,r: real;
begin
writeln('вычисление расстояния между населенными пунктами.') ; writeln('ведите исходные данные: '); writeln('масштаб карты (количество километров в одном сантиметре) > ');
read(m); writeln('расстояние между двумя точками, изображающими населенные пункты (см) > ');
read(r); writeln('расстояние между населенными пунктами ', m*r,' км.');
end.