Дана таблица значений среднемесячных температур в течение года составит программу на pascal в которой вычесляютсь четыре велечины: среднее температуры зимних месяцев весенних месяцев летних и осенних
Var a:array[1..12]of real; i:integer; s1,s2,s3,s4:real; begin for i:=1 to 12 do begin writeln('Введите среднемесячную температуру за ',i,' месяц:'); read(a[i]); if i<=3 then s1:=s1+a[i] else if (i>3)and(i<=6) then s2:=s2+a[i] else if (i>6)and(i<=9) then s3:=s3+a[i] else s4:=s4+a[i]; end; writeln('Средняя температуры зимних месяцев: ',s1/3); writeln('Средняя температуры весенних месяцев: ',s2/3); writeln('Средняя температуры летних месяцев: ',s3/3); writeln('Средняя температуры осенних месяцев: ',s4/3); end.
2. var n,s,i:integer; begin writeln ('Программа, которая вычисляет сумму нечетных чисел от 11 и до n, задаваемого клавиатуры (n>11)'); write ('Введите n: '); readln (n); for i:=11 to n do if i mod 2 = 1 then s:=s+i; writeln ('Сумма нечетных чисел от 11 до ',n,' равна ',s) end.
1. var a,b:real; begin writeln ('Программа для решения уравнения ax=b'); write ('Введите a и b: '); readln (a,b); if (a=0) and (b=0) then writeln ('x - любое число') else if (a=0) and (b<>0) then writeln ('решений нет') else writeln ('x = ',b/a) end.
алг нач опустить перо сместиться на вектор (0,7) сместиться на вектор (3,-3) сместиться на вектор (3,3) сместиться на вектор (0,-7) поднять перо сместиться на вектор (3,0) опустить перо сместиться на вектор (0,7) сместиться на вектор (4,0) сместиться на вектор (1,-1) сместиться на вектор (0,-1) сместиться на вектор (-1,-1) сместиться на вектор (-4,0) поднять перо сместиться на вектор (4,0) опустить перо сместиться на вектор (1,0) сместиться на вектор (1,-1) сместиться на вектор (0,-2) сместиться на вектор (-1,-1) сместиться на вектор (-5,0) поднять перо сместиться в точку (0,0) кон
a:array[1..12]of real;
i:integer;
s1,s2,s3,s4:real;
begin
for i:=1 to 12 do
begin
writeln('Введите среднемесячную температуру за ',i,' месяц:');
read(a[i]);
if i<=3 then s1:=s1+a[i] else
if (i>3)and(i<=6) then s2:=s2+a[i] else
if (i>6)and(i<=9) then s3:=s3+a[i] else
s4:=s4+a[i];
end;
writeln('Средняя температуры зимних месяцев: ',s1/3);
writeln('Средняя температуры весенних месяцев: ',s2/3);
writeln('Средняя температуры летних месяцев: ',s3/3);
writeln('Средняя температуры осенних месяцев: ',s4/3);
end.