1. В 6 школ города поступили компьютеры. В первую только один, во вторую - 4, в третью - 9 и т. д. Подсчитайте общее количество компьютеров. Выведите на экран номер школы, где количество компьютеров кратно 4.

2. Сестра братишки-шалунишки в октябре ежедневно записывает показания температур в дневник наблюдений. Однажды братишка-шалунишка сделал в записях температур небольшие исправления, дописав к отрицательной температуре справа ноль, к положительной добавил знак минус, а перед нулем приписал 5. Что увидит сестренка после исправлений. Вывести исходные и полученные данные.

Question

Информатика

Памфил

1 декабря, 18:56

1. В 6 школ города поступили компьютеры. В первую только один, во вторую - 4, в третью - 9 и т. д. Подсчитайте общее количество компьютеров. Выведите на экран номер школы, где количество компьютеров кратно 4.

2. Сестра братишки-шалунишки в октябре ежедневно записывает показания температур в дневник наблюдений. Однажды братишка-шалунишка сделал в записях температур небольшие исправления, дописав к отрицательной температуре справа ноль, к положительной добавил знак минус, а перед нулем приписал 5. Что увидит сестренка после исправлений. Вывести исходные и полученные данные.

+2

Ответы (1)

Знаете ответ на вопрос?

Ириша · Answer 1

Первая программа может выглядеть так:

uses Crt;

const n = 6;

Type Mas = array [1 ... n] of integer;

var A: Mas;

i, Sum : integer;

begin

ClrScr;

Sum: = 0;

for i:=1 to n do

begin

A[i]:=i*i;

Sum:=Sum+A[i];

end;

for i:=1 to n do

if (A[i] mod 4=0) then WriteLn (' Номер школы: : ', i) ;

Writeln (' Количество компьютеров: ', Sum) ;

ReadLn;

end.