1. Определите, что будет напечатано в результате работы следующей программы:
2. Определите, что будет напечатано в результате работы следующей программы:
end.
Наберите текст программы и проверьте правильность ответа.
Program p2;
var a,b,c : integer;
begin
end.
Наберите текст программы и проверьте правильность ответа.
1. Определите, что будет напечатано в результате работы следующей программы:
Карточка 1.
Program p1;
var a,b,c : real;
begin
a:=-2;
c:=12;
b:=a+c/3;
a:=a-b;
c:=c-a;
writeln(c);
a:=3;
b:=2*a+9;
c:=b-a;
a:=c*a;
writeln(a);
Карточка 2.
Program p3;
var a,c : integer;
begin
a:=2154;
c:= a div 100;
a:=a mod 100;
c:=a-c;
writeln(c);
2. Определите, что будет напечатано в результате работы следующей программы:
end.
Наберите текст программы и проверьте правильность ответа.
Program p4;
var a,c : integer;
begin
a:=3452;
c:=a mod 10;
a:=a div 100;
c:=a mod 10 + 10*c;
writeln(c);
end.
Наберите текст программы и проверьте правильность ответа.
1. Определите, что будет напечатано в результате работы следующей программы:
Карточка 3.
Program p5;
var a,c : integer;
begin
readln(a);
c:= a +12;
a:=c + 2*a;
writeln(a);
end.2. Определите, что будет напечатано в результате работы следующей программы:
Наберите текст программы и проверьте правильность ответа.
Program p6;
var a,c : real;
begin
end.
Наберите текст программы и проверьте правильность ответа.
Карточка 4.
1. Определите, что будет напечатано в результате работы следующей программы:
read (a);
a:=15 -a;
c:=a /2 +4;
a:=2*c +a;
writeln(a);
Program p7;
var a,c : integer;
begin
readln(a);
c:= a mod 10;
a:=a div 10;
c:=10*c +a mod 10;
a:=10*c +a div 10;
writeln(a);
2. Определите, что будет напечатано в результате работы следующей программы:
end.
Наберите текст программы и проверьте правильность ответа.
Program p8;
var a,c : integerl;
begin
read (a);
a:=a div 100;
c:=a mod 100 + 2*(a mod 10);
a:=10*a +c;
writeln(a);
end.
Наберите текст программы и проверьте правильность ответа.