Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
min і max нужно присвоить а[1].
состояние тропосферы в данной местности и в данное время называеться погодой
program _1_2; uses crt; var dlina, shirina, vysota: real; begin clrscr; textcolor(14); writeln('вычисление объёма параллелепипеда.'); writeln('введите исходные данные: '); write('длина (см) -> '); readln(dlina); write('ширина (см) -> '); readln(shirina); write('высота -> '); readln(vysota); writeln('объём: ',(dlina*shirina*vysota): 7: 2); repeat until keypressed; end.
var a,b,c,d: integer;
begin
read(a,b,c,d);
if (a*b*c*d mod 3 = 0) then
writeln("pravda")
else writeln("nepravda");
end.
Популярные вопросы