Var f,n:integer;
Begin
f:=22
f:=f-20
For n:=1 to 5 do
f:=f+n;
Writeln(f)
<span>End.
f=17</span>
Блок-схема к задаче является ли число 17 простым
<em>// PascalABC.NET 3.2, сборка 1367 от 20.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var t:integer;
var k:=0;
repeat
Read(t);
if t.ToString.Where(c->c='5').Count=2 then k+=1
until t=0;
Writeln('Количество чисел с двумя пятерками равно ',k)
end.
Program abc;
var: a,b,c,V:integer
begin
readln(a,b,c);
V:=a*b*c;
writeln(V);
<span>end.</span>
В пятеричной, так как 22 в 5 = 12 в 10, 23 в 5 = 13 в 10, а 100 в 5 = 25 в 10, то есть 12+13=25, ч.т.д