Var a:array [1..10] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to 10 do
begin
write (i,'-oe chislo: ');
readln (a[i]);
if (a[i]>-15) and (a[i]<30) then inc(k);
end;
writeln ('Kol-vo: ',k);
end.
Ну я не могу сказать правильно, но вот как я решила:
20*30=600 (к)
30*2=60 (к)
600+60=660(к)
Ответ : 660 мест в зале.
Я не знаю правильно ли нет.. Спроси у родителей, на всякий случай!
Var a,b:integer;
begin
write('Введите первое число:');
readln(a);
write('Введите второе число:');
readln(b);
writeln('Ответ:',(a*a+b*b)-a*b);
end.
Графические данные ..
А остальное чет не помню :D