Вкакой системе счисления возможно 25+14=42?
Ответы
1.
var arr: array[1..6] of integer;
var i, summ: integer;
begin
summ:= 0;
for i:=1 to 6 do
begin
readln(arr[i]);
end;
for i:=1 to 6 do
begin
if arr[i]>4 then
summ := summ+arr[i];
end;
writeln(summ);
end.
--------------------------------
var arr: array[1..7] of integer;
var i, mult: integer;
begin
mult:= 1;
for i:=1 to 7 do
begin
readln(arr[i]);
end;
for i:=1 to 7 do
begin
if arr[i]>0 then
mult := mult*arr[i];
end;
writeln(mult);
end.
----------------------------
Краткий гайд
i - переменная-счётчикarr - массив, с которым производятся операцииsumm - (в первом задании - переменная, отвечает за сумму элементовmult - (во второй части) отвечает за произведение
1.
var arr: array[1..6] of integer;
var i, summ: integer;
begin
summ:= 0;
for i:=1 to 6 do
begin
readln(arr[i]);
end;
for i:=1 to 6 do
begin
if arr[i]>4 then
summ := summ+arr[i];
end;
writeln(summ);
end.
--------------------------------
var arr: array[1..7] of integer;
var i, mult: integer;
begin
mult:= 1;
for i:=1 to 7 do
begin
readln(arr[i]);
end;
for i:=1 to 7 do
begin
if arr[i]>0 then
mult := mult*arr[i];
end;
writeln(mult);
end.
----------------------------
Краткий гайд
i - переменная-счётчикarr - массив, с которым производятся операцииsumm - (в первом задании - переменная, отвечает за сумму элементовmult - (во второй части) отвечает за произведениеОтветить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Как написать универсальную программу для робота(кумир
Заполни все эти таблицы для мешка к
Рисунок размером 256 на 720 пикс. занимает в памяти 75 Кб. Найдите максимально возможное количество цветов в палитре.
кто знает ответы на СОР по Информатике
