Var i:integer;
begin
//Первый способ
for i:= -10 to 10 do
begin
writeln('При x = ', i, ' y = ', 3*i-5*i*i);
end;
//Второй способ
i:= -10;
while(i <= 10) do
begin
writeln('При x = ', i, ' y = ', 3*i-5*i*i);
i:= i + 1;
end;
end.
Положить альбом в портфель.
наточить цветные карандаши.
положить в пенал цветные карандаши и простой карандаш.
взять если нужно краски, кисть и стаканчик для воды.
→Для малювання.
→Для редагування графiчних файлiв(зображень).
→Пiдписати зображення.
Uses crt;
var
x,y,a,b:integer;
begin
clrscr;
while true do begin
randomize;
x:=random(10);
y:=random(10);
write('Введите первое число=');read(a);
write('Введите второе число=');read(b);
writeln(x,' ',y);
if ((a=x) and (b=y)) or ((a=y) and (b=x)) then begin
writeln('Вы угадали');
end
else begin
writeln('Вы не угадали');
end;
end;
end.