Поделитесь своими знаниями, ответьте на вопрос:
Используя масштаб 1:10 (1 клетка = 10 Ч.шагов), нарисовать в тетради следующую фигуру PU SETPOS[30 30] PD SETY -40 SETPOS[20 -50] SETX -20 SETPOS[-30 -40] SETY 30 SETPOS[-10 20] SETX 10 SETPOS[30 30] PU SETPOS[-20 -10] PD SETX -10 SETY -20 SETX -20 SETY -10 PU SETPOS[10 -10] PD SETX 20 SETY -20 SETX 10 SETY -10 PU SETPOS[-10 -30] PD SETPOS[0 -40] SETPOS[10 -30] SETX -10
var a: array [1..10] of integer;
ch, proiz, i: longint;
begin
read(a);
ch := 0;
proiz := 1;
for i := 1 to 10 do
begin
if (a[i] mod 2 = 0) then
ch := ch + a[i];
if (a[i] mod 5 = 0) and (a[i] > 10) then
proiz := proiz * a[i];
end;
writeln(ch);
writeln(a[i]);
end.
Объяснение:
создаем массив из десяти элементов и две переменные: ch(сумма), proiz(произведение).
Далее вводим массив с клавиатуры и в цикле начинаем проверять его элементы:
Если остаток от деления(mod) равен нулю(т.е число делится на два), то мы просто пихаем его в сумму, а если число делится на пять и больше десяти, то мы запихиваем его в произведение(перед циклом proiz = 0, так как 0 * любое число = 0).
После завершения цикла выводим сумму и произведение на экран.
Надеюсь всё понятно)