program pr; vars,n: string; c: char; i: integer; beginwriteln('введите имя и фамилию в одной строке'); readln (s); i: =1; while s[i]< > ' ' do i: =i+1; n: =copy(s,1,i-1); writeln(n); readln; end.
Ответ дал: Гость
это просто название месяцев, а вот май, август, октябрь, декабрь в этих месяцах по 31 дню, если в учитесь по босовой , то ответить нужно именно так
Ответ дал: Гость
var m,r: real;
begin
writeln('вычисление расстояния между населенными пунктами.') ; writeln('ведите исходные данные: '); writeln('масштаб карты (количество километров в одном сантиметре) > ');
read(m); writeln('расстояние между двумя точками, изображающими населенные пункты (см) > ');
read(r); writeln('расстояние между населенными пунктами ', m*r,' км.');
end.
Другие вопросы по: Информатика
Похожие вопросы
Знаешь правильный ответ?
С++ программа. даны целые числа k, l, m. определить количество нулей....
Популярные вопросы