1) x=x+x и так 2 раза => x= 2*(5+5)=10*2=20
2)y=y*4 => y=5*4=20
Program Summa;
Uses Crt;
var n,s:integer;
begin
clrscr;
write('Вводите числа конец ввода 0: ');
s:=0;
repeat
readln(n);
s:=s+n;
until (n=0);
writeln;
writeln('Сумма чисел: ',s);
readkey;
end.
Таблица или картина ( Макет самолет и так далее)
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('N=');
for var i:=1 to n do begin
var (flag,j,r):=(True,2,Round(Sqrt(i)));
while flag and (j<=r) do
if i mod j = 0 then flag:=false
else j+=1;
if flag then Print(i)
end
end.
<u>Пример</u>
N= 50
1 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47
===== PascalABC.NET =====
begin
var x := ReadInteger('x=');
var y := ReadInteger('y=');
var a := x;
var b := y;
while b <>0 do
begin
a := a mod b;
Swap(a,b)
end;
var NOD := a;
var NOK := x * y div NOD;
Print('НОД =', NOD, ' НОК =', NOK)
end.