var sum, sum_chetn, sum_nechetn : integer; b:array [1..10] of integer;
begin for var i := 0 to 10 do begin sum :=sum + b[i]; //сумма всех элементов if (i mod 2 =0) then begin sum_chetn := sum_chetn + b[i]; //сумма всех четных элементов end else begin sum_nechetn := sum_nechetn + b[i]; //сумма всех нечетных элементов end; end; println('Сумма всех элементов:'); println(sum); println('Сумма всех четных элементов:'); println(sum_chetn); println('Сумма всех нечетных элементов:'); println(sum_nechetn); end.
1)Назовите систему, в которой для записи любых чисел используется всего один символ? В) Унарная;
2)Устройство, обеспечивающее обмен информацией с контроллерами периферических устройств, называется: Г) PCI-шина.
3). Какой из тегов HTML рисует горизонтальную линию? hr
4) Какой из перечисленных языков программирования относится к низкоуровневым? Г) Assembler.
5)Файлы с расширением .cvs используют для хранения: Г) Изображений.
6)Файл размером 2000 Кбайт передаётся через некоторое соединение в течение 30 секунд. Определите размер файла (в Кбайт), который можно передать через это соединение за 12 секунд. Пропорция 2000Кбайт / 30с * 12с = 800Кбайт А) 800 Кбайт;
7)Переведите число 126 из десятичной системы счисления в двоичную систему счисления. А) 1111110;
8)Укажите, что в электронных таблицах не применяется в формулах для ссылки на другие ячейки: А) Гиперссылка;
Как-то так:
//fpc 3.0.0
program HelloWorld;
var
total: integer; // результат суммирования
ent, last: integer; // ввод, подсчет
begin
total := 0; // начальная сумма
// 30 можно поменять на любое число, чтоб цикл не шел вечно. А если надо вечно, то поменять условие на 1 < 2
while total <= 30 do
begin
// просим число
write('Enter number: ');
readln(ent);
// получаем только 4-х значные
if (ent < 1000) or (ent > 9999) then
Continue;
// берем последнюю цифру
last:= ent mod 1000;
last:= last mod 100;
last:= last mod 10;
// складываем
total:= total + last;
// выводим результат
writeln(total);
end;
end.
Результат можно посмотреть тут: https://rextester.com/ENTY66578