Var
p:char;
s,a,b:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите знак действия (+ - * /)');
readln(p);
case p of
'+': s:=a+b;
'*': s:=a*b;
'/': s:=a/b;
'-': s:=a-b;
end;
writeln(s);
end.
Program swap;
const
N = 10;
var
a: array [1..N] of integer;
i, temp: integer;
begin
randomize;
writeln('исходный массив: ');
for i := 1 to N do
begin
a[i] := Random(10);
write(a[i], ' ');
end;
writeln;
i := 1;
while i <= 9 do
begin
temp := a[i];
a[i] := a[i+1];
a[i+1] := temp;
i := i + 2;
end;
writeln('полученный массив: ');
for i := 1 to N do
write(a[i], ' ');
end.
1)20+50+63=133(всего денег потрачено на продукты).
2) 500-133=367(остаток денег, после покупки продуктов)
а как в паскале делать, не догадываюсь, что если, то есть) не судите строго, хоть чем-то помогла))
Расписание можно составить двумя способами:
1) первый урок — математика, второй — литература, третий —
история;
2) первый урок — история, второй — математика, третий —
литература.