var a,c: real;
begin
write ('Введите стоимость 1 кг яблок: ');
readln (c);
a := 0.6;
while a <= 7.2 do
begin
writeln(a:3,' кг яблок стоит ', a*c,' руб.');
a := a + 0.6
end
end.
Я предполагаю что слово день.
Исполнитель Чертёжник, PascalABC.NET 3.2
uses Drawman;
procedure Hexagon();
begin
PenDown;
OnVector(2, 1);
OnVector(0, 2);
OnVector(-2, 1);
OnVector(-2, -1);
OnVector(0, -2);
OnVector(2, -1);
PenUp;
end;
begin
Field(15, 7);
ToPoint(3, 1);
Hexagon();
OnVector(2, 0);
Hexagon();
OnVector(2, 0);
Hexagon();
end.
1 Вариант
var a:integer;
begin
writeln('Введите номер месяца: ');
readln(a);
case a of
1:writeln('Зима');
2:writeln('Зима');
3:writeln('Весна');
4:writeln('Весна');
5:writeln('Весна');
6:writeln('Лето');
7:writeln('Лето');
8:writeln('Лето');
9:writeln('Осень');
10:writeln('Осень');
11:writeln('Осень');
12:writeln('Зима');
end;
end.
2 Вариант
var a:integer;
begin
writeln('Введите номер месяца: ');
readln(a);
if (a=12) or (a=1) or (a=2) then writeln('зима');
if (a=3) or (a=4) or (a=5) then writeln('весна');
if (a=6) or (a=7) or (a=8) then writeln('лето');
if (a=9) or (a=10) or (a=11) then writeln('осень');
end.
var a : array[1..10] of integer; n, z:integer;
begin
readln(n);
for var i:=1 to n do
readln(a[i]);
for var i:=1 to n-1 do begin
z:=a[i];
a[i]:=a[i+1];
a[i+1]:=z;
end;
for var i:=1 to n do
writeln(a[i]);
<span>end.</span>