Program past;
uses crt;
var name: string;
age: float;
begin
clrscr;
readln('Введите ваше имя'; name);
readln('Введите ваш возраст'; age);
writeln;
if age<5 then
writeln (name, ' 5 лет назад вы еще не родились');
else
writeln (name, ' 5 лет назад вам было ', age -5, ' лет');
endif;
readkey;
end.
1.
а) обработка;
б) получение;
в) запоминание;
г) обмен;
д) отправка;
е) запись;
2. Редактор газеты, журналист, специалист CaLL центра.
1) <span>(A v B) & (A v B v C) = A v B</span>
z10)
var A, B, C: integer;
begin
write('Введите A, B, C: '); readln(A, B, C);
writeln('Сумма = ', A + B + C);
writeln('Произведение = ', A * B * C);
end.
z11)
var a,s,v:integer;
begin
writeln('Введите длинну куба: ');
readln(a);
s:=6*a*a;
v:=a*a*a;
writeln('Объем = ', v);
writeln('Площадь боковой поверхности = ', s);
end.
z13)
var A, B, C: integer;
begin
A := 20; B := 13;
C := A;
A := B;
B := C;
writeln('A = ', A);
writeln('B = ', B);
end.
z14)
var A, B: integer;
begin
A := 20; B := 13;
A:=A+B;
B:=A-B;
A:=A-B;
writeln('A = ', A);
writeln('B = ', B);
end.