1.Переменной S присвоить сумму цифр четырёхзначного числа K, вводимого с клавиатуры. 2.Проверить, есть ли среди трех заданных чи
1.Переменной S присвоить сумму цифр четырёхзначного числа K, вводимого с клавиатуры. 2.Проверить, есть ли среди трех заданных чисел a,b,c равные. Если есть, то возвести эти числа в квадрат, иначе, их удвоить. 3.Составить программу для вычисления an.
1) Program dasf; var a,b,i,s: integer; begin Writeln('Введите четырёхзначное число'); readln(a); For i:=1 to 4 do begin S:=a mod 10+s; a:=a div 10 end; writeln('Сумма цифр четырёхзначного числа:',s); <span>end. 2)</span>Program sgsgsdfg; var a,b,c,a1,b1,c1: real; begin Writeln('Введите а'); readln(a); Writeln('Введите b'); readln(b); Writeln('Введите c'); readln(c); If (a=b) or (a=c) then a1:=a*a else a1:=a*2; If (b=a) or (b=c) then b1:=b*b else b1:=b*2; If (c=a) or (c=b) then c1:=c*c else c1:=c*2; Writeln('Полученные числа: а=',a1,' b=',b1,' c=',c1); <span>end. 3) </span>Program afgsdg; var n,a,b,i: integer; begin; Writeln('Введите число'); readln(a); Writeln('Введите степень'); readln(n); b:=a; For i:=2 to n do a:=a*b; Writeln('Число ',b,' в степени ',n,' равно ',a); end.<span> </span>
var a:array [1..6,1..6] of integer; i,j: integer; begin for i:=1 to 6 do begin a[i,i]:=i; a[7-i,i]:=i; end; for i:=1 to 6 do begin for j:=1 to 6 do write(a[i,j]:2); writeln; end; <span>end.</span>
Если кузнечик двигался вперёд 2, а назад 1, значит он всё время смесчается на 1 клетку, соответственно он прошел 35 клеток. Остальные 5 команд он двигаля назад, значит он прошел 6*5=30клеток. Всё это можно заменить на команду (Вперёд 5)
Var n,i: integer; priz: boolean; begin write('n = '); readln(n); repeat priz:=true; for i:=2 to round(sqrt(n)) do if n mod i=0 then begin priz:=false; break; end; if priz then write(n) else inc(n); until priz; end.