1. Найдите ошибки в следующих программах:
| а)program MyProgram
begin;
writeln (‘Здравствуй!’)
end.
б)program First;
begin
y:=x+100
end
| г)program ошибки2;
var x: integer;
const v=4; j=5.6;
begin
x:=v*j;
write (x)
end.
| |
| д)program MyProgram 2;
begin
var y: real;
y:=2;
writeln (‘y в квадрате =, у*у)
end.
| |
| в)program ошибки1;
begin
summa:=6+8;
end;
| |
2. Напишите программу для вычисления и печати на экране значений выражений:
a) y=
, а=1, b=-1;
b) z=
;
c) k=
, x=
, a=0,04, b=-1, c=a;
d) f=sin x cos y + sin y cos x, x=
, y=
.
3. Напишите программу, определяющую остаток от деления:
а) 45 на 13;
б) 123 на 14.
4. Напишите программу, определяющую целую часть от деления:
а) 125 на 12;
б) 24 на 5.
5. Программа запрашивает имя и затем приветствует его обладателя.
