Язык pascal abc введите 5 положительных уныл чисел, вычислите сумму тех из них которые делятся на 4, и оканчиваются на 6. если таких чисел нет, то вывести об этом сообщение.
Program z; var a: array[1..5] of integer; i,sum:integer; begin for i:=1 to 5 do begin readln(a[i]); end; for i:=1 to 5 do begin if(a[i] mod 4=0) and (a[i] div 10=6) then sum:=sum+a[i]; end; writeln(sum); end.
При протяжке выделенного диапазона Эксель определяет шаг между значениями и пытается автоматически построить последовательность с найденным шагом. Январь имеет номер месяца 1, сентябрь - номер 9. Между ними 8 месяцев. Тогда в А3 будет месяц номер 9+8=17. Но у нас 12 месяцев повторяются в цикле, поэтому вычитаем 12 и получаем 17-12=5. И в ячейке А3 будет месяц май. В А4 будет месяц с номером 5+8=13, но 13>12, поэтому получим 13-12=1, а это январь. Январь у нас был, и что идет дальше известно: А5 - сентябрь, А6 - май, А7 - январь. ответ: ЯНВАРЬ.
Числа вводятся пользователем. Прикрепил скрин работы программы, вот сама программа:
var a:array[1..999]of integer; i,n:integer; begin write ('Введите кол-во чисел: '); readln (n); for i:=1 to n do begin write ('Введите ',i,' число: '); readln (a[i]); end; WRITELN; write ('Числа введённые пользователем: '); for i:=1 to n do write (a[i],' '); WRITELN; WRITELN; write ('Положительные: '); for i:=1 to n do begin if a[i]>0 then write (a[i],' '); end; WRITELN; write ('Отрицательные: '); for i:=1 to n do begin if a[i]<0 then write (a[i],' '); end; WRITELN; write ('Чётные: '); for i:=1 to n do begin if a[i] mod 2 = 0 then write (a[i],' '); end; WRITELN; write ('Нечётные: '); for i:=1 to n do begin if a[i] mod 2 <> 0 then write (a[i],' '); end; end.
var a: array[1..5] of integer;
i,sum:integer;
begin
for i:=1 to 5 do
begin
readln(a[i]);
end;
for i:=1 to 5 do
begin
if(a[i] mod 4=0) and (a[i] div 10=6) then
sum:=sum+a[i];
end;
writeln(sum);
end.