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

193

397

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

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

gallagersandr

Информатика

4,7(78 оценок)

Program programma; var a,b,c,d,e,p,s: integer; begin writeln ('введите четырехзначное число'); readln (a); b: =a div 1000; c: =a div 100; c: =c mod 10; d: =a mod 100; d: =d div 10; e: =a mod 10; p: =b*d; s: =c+e; writeln ('произведение первой и третьей цифры равно ',p,', сумма второй и четвертой цифры равна ',s); end.

kolya1123

Информатика

4,4(62 оценок)

Program zadacha; var a,p,s: integer; begin writeln('введите четырехзначное число'); readln(a); p: =(a div 1000)*(a mod 100 div 10); s: =(a div 100 mod 10)+(a mod 10); writeln('произведение первой и третьей =',p); writeln('сумма второй и четвертой = ',s) end.

McEgorKa

Информатика

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

Var s: string; i, sum, k: integer; begin readln(s); for i : = 1 to length(s) do begin if s[i] in '0123456789' then sum : = sum + strtoint(s[i]) else if s[i] in 'abcdefghijklmnopqrstuvwxyz' then k : = k + 1; end; writeln(sum, ' ', k); end.