Склавиатуры вводится десять целых чисел(до100) ,найти произведение тех из них которые делятся на три или которые оканчиваются тройкой

216

281

Посмотреть ответы 2

Ответы на вопрос:

D202

Информатика

4,5(66 оценок)

Var ar: array[1..10] of integer; i,k: integer; begin; k: =1; for i: =1 to 10 do begin; readln(ar[i]); if (ar[i] mod 3=0) or (ar[i] mod 10=3) then k: =k*ar[i]; end; writeln('result: ',k); end.

lim155

Информатика

4,6(24 оценок)

A) var a,sum,p: integer; begin writeln('введите число a'); read(a); sum: =a div 10 + a mod 10; p: =(a div 10) * (a mod 10); writeln('сумма цифр числа =',sum); writeln('произведение цифр числа =',p); end. б) var a: integer; begin writeln('введите число a'); read(a); a: =(a mod 10)*10+a div 10; writeln(a); end.