Ива, Иван-дамарья, Иван-чай, Ивняк, Ивовый, Иволга, Иволка
Program Pr1;
uses crt;
var n,i,a,b,c:integer;
Begin
clrscr;
writeln('Vvedite N');
readln(n);
a:=n;
for i:=2 to 4 do begin
a:=a+10;
n:=n+a;
end;
writeln(n);
end.
Int get_lessons(int week){
if(week < 1 || week > 7) return 0; // Если ввели не номер дня недели
else if (week == 1) return 6;
else if (week == 2) return 6;
else if (week == 3) return 6;
else if (week == 4) return 6;
else if (week == 5) return 7;
else if (week == 6) return 0;
else return 0;
}
7)Руслан
8)друга ищи,а найдешь-береги
старый друг лучше новых двух
Program pr;
uses crt;
Var x, y, buf:integer;
Begin
Write('Введите x ');
readln(x);
Write('Введите y ');
readln(y);
if x>y then
Begin
buf:=x;
x:=y;
y:=buf;
end;
Writeln('x = ',x);
Write('y = ',y);
readln;
<span>end.</span>