Решить на паскале я совсем не разбираюсь в ! 1)дана таблица со значениями среднемесячных температур в течение года. составить программу на паскале, в которой вычисляются четыре величины: средние температуры
зимних месяцев, весенних месяцев, летних и осенних. 2)вы посетили магазин и купили 10 видов товара. в таблицу t [1..10] записали количество купленного товара каждого вида. в таблицу c [1..10] записали цену единицы каждого
вида товара соответственно. составить программу на паскале вычисления общей стоимости всех покупок.

184

396

Посмотреть ответы 2

Ответы на вопрос:

10д

Информатика

4,6(23 оценок)

1)var t: array [1..12] of real;

i: integer;

begin

for i: =1 to 12 do readln(t[i]);

writeln('средняя температура зимних месяцев: '+t[1]+t[2])/3): 0: 3);

writeln('средняя температура весенних месяцев: '+t[4]+t[5])/3): 0: 3);

writeln('средняя температура летних месяцев: '+t[7]+t[8])/3): 0: 3);

writeln('средняя температура осенних месяцев: '+t[10]+t[11])/3): 0: 3);

end.

2)var t: array[1..10] of integer;

c: array[1..10] of real;

i: integer;

s,s1: real;

begin

s: =0;

for i: =1 to 10 do begin writeln('введите количество товара'); readln(t[i]) ; end;

for i: =1 to 10 do begin writeln('введите цену товара'); readln(c[i]); end;

for i: =1 to 10 do begin s1: =t[i]*c[i];

s: =s+s1;

end;

writeln('общая стоимость всех покупок: ',s: 0: 3);

end.

Snezhana200511

Информатика

4,4(31 оценок)

алгоритм на языке pascal.

vara: integer; beginwrite('введите двузначное число: '); readln(a); if a mod 5 = 0 then writeln('кратны') else writeln('не кратны'); end.

принцип действия:

на ввод подается двузначное число, после чего находится его остаток при деления на 5 (a mod 5 ) , если он равен 0, то число кратно 5 (как все число, так и разряд едениц), в противном случае - не кратно.