Составить программу которая возводит в квадрат остаток от целочисленного деления числа а на 15 и выводит результат

274

484

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

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

17princess

Информатика

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

Var x: integer; begin readln(x); writeln((x div 15)*(x div 15)); end.

taitpaev2003

Информатика

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

Program program1; var a,b: integer; c,d: real; begin readln(a); b: =a mod 15; c: =sqr(b); writeln(c); end.

Алёнажж

Информатика

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

var c, f, first, count: integer; begin write('c = '); readln(c); f : = c; while (f div 10 > 0) do begin first : = f div 10; count : = 1; while (first div 10 > 0) do begin first : = first div 10; inc(count); end; if first < > f mod 10 then begin writeln('no'); readln; exit; end; while count > 0 do begin first : = first * 10; dec(count); end; f : = f - first; f : = f div 10; end; writeln('changeling'); readln; end.