Б9. В 6 школах города поступили компьютеры. В первую только один, во вторую – 3, в третью – 15 и т.д.(укажите самостоятельно количество компьютеров, поступивших в каждую школу). Подсчитайте общее количество компьютеров. Выведите на экран номера школ, где компьютеры можно расставить в 4 аудитории поровну.
а) В готовом шаблоне допишите недостающие операторы.
б) Объясните выполнение программы.
program school;
var L:ARRAY[1.. ] OF ;
: integer;
BEGIN
FOR I:=1 TO 6 DO BEGIN
WRITE ('введи количество компьютеров в ', i,' школе')
READLN(L[i])
WRITELN ('L[',I,']=',L[I]);
END;
WRITELN ('S=',S);
WRITE ('номера школ:');
FOR I:=1 TO 6 DO
IF
WRITE (I, ' ');
END.
при скачивании можно воспользоваться специально предназначенным для таких целей ПО в виде download-менеджеров,работу которых не сложно настроить по расписанию.Кстати, на любителей работать в Интернете в определенное время суток рассчитаны специализированные тарифные планы провайдеров и возможно взглянув на них под данным углом зрения, вы сможете подобрать себе более дешевый вариант доступа.
Существует и еще один момент. Как правило, при коммутируемом доступе большинство провайдеров учитывают только время доступа — в этом случае вы платите не за реально полученные данные, а за время, проведенное на линии. Но это вовсе не обязательно — наряду со временем доступа ряд провайдеров может параллельно учитывать и трафик, а возможно,есть и такие провайдеры,которые при модемном доступе, как и при работе по выделенным каналам связи,вообще учитывают только трафик. И здесь кроется один подводный камень.Если вы просто путешествуете по Интернету,то вы можете затрачивать много времени при достаточно небольшом трафике, а значит,вам выгоднее платить за трафик,а не за время.
var x, F: real;
begin
write('Введите х: ');
readln(x);
if ( x > -2.4 ) AND ( x < 5.7 ) then F := sqr(x)
else F := 4;
writeln('F = ', F);
end.
№2
var x, F: real;
begin
write('Введите х: ');
readln(x);
if ( x > 0.2 ) AND ( x < 0.9 ) then F := sin(x)
else F := 1;
writeln('F = ', F);
end.
№3
var a,b,c: real;
begin
write('Введите а: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
if ( a < b ) AND ( b < c ) then writeln('a < b < c')
else
if ( b > a ) AND ( a > c ) then writeln('b > a > c')
else
writeln('Неравенства не выполняются');
end.