6, понедельник, иа, 1, на печи,клюв, царь, марка, гласных 10, согласных 21, всего 33
Ответ дал: Гость
program strangle;
var
a: integer;
begin
readln(a);
if a = 180 then writeln('yes') else writeln('no');
end;
Ответ дал: Гость
var m,r: real;
begin
writeln('вычисление расстояния между населенными пунктами.') ; writeln('ведите исходные данные: '); writeln('масштаб карты (количество километров в одном сантиметре) > ');
read(m); writeln('расстояние между двумя точками, изображающими населенные пункты (см) > ');
read(r); writeln('расстояние между населенными пунктами ', m*r,' км.');
end.
Ответ дал: Гость
max: =a[1];
for i: =2 to 10 do
begin
if a[i]> max then
max: =a[i];
c: =i;
end;
min: =a[1];
for i: =2 to 10 do
begin
if a[i]< min then
min: = a[i];
d: =i;
end;
a[c]: =x;
a[c]: =a[d];
a[d]: =x;
это кусочек программы в паскале для нахождения максимального элемента на скоко я помню
Популярные вопросы