1) присвоения :=
2)
3
4
3,5
3) 1
a=2 b=5
var a,x,x1,x2,x3:integer;
Begin
read(a);
writeln('4. s=',4*a);
read(x);
x3:=x mod 10;
x1:=x div 10;
writeln('5. x=',x3*100+x1);
End.
Выводятся такие значиния
k= 1 p=120
j=10 s= 20 j=11 s= 42 j=12 s= 66 j=13 s= 92 j=14 s= 120 j=15 s= 150
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var a:=ReadInteger('Яблок было');
var d:=ReadInteger('Детей гуляло');
Writeln('Каждый получил яблок: ',a div d);
Writeln('На компот пошло яблок: ',a mod d)
end.
<u><em>Тестовое решение:</em></u>
Яблок было 37
Детей гуляло 7
Каждый получил яблок: 5
На компот пошло яблок: 2
A:\TEST\INF\MY так как пользователь последовательно идёт к корню диска "А"
1.
var i,k:integer;
begin
for i:=150 to 225 do
if i mod 7=0 then k:=k+1;
write(k)
end.
2.
var a,s:integer;
begin
read(a);
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10
end;
if s mod 10=0 then write('Правда') else write ('Неправда')
end.