Var x ,y: integer;
begin
for x:=-4 to 4 do
begin
y:=2*x*x*x-7*x;
writeln('При x = ', x, ' y = ', y);
end;
<span>end.</span>
Вот вставь проверь там напишет при каких значениях
var x, L, M,i,i1: integer;
begin
for i:=0 to 1000 do
begin
i1:=i;
L:=0;
M:=0;
while i1 > 0 do
begin
L:=L+1;
if M < i1 then
begin
M:= (i1 mod 10) * 2;
end;
i1:= i1 div 10;
end;
writeln(L);
write(M);
end;
readln;
end.<span>
</span>
16*32*60=30720 символов
30720*8=30720 байт=30кбайт
- Создаешь блокнот
- Вставляешь такие символы (ну ты поймёшь)
<head>
<title> Заголовок </title>
</head>
<body>
Текст
</body>
</html>
3.В блокноте наверху будет написано "файл" и нажимаешь на него
4.Там будет "Сохранить как"
5.И внизу строчку будет написано блокнот (или как там его назвал), и ты в этой строчке, в конце пишешь .html
6.Открываешь и всё)
Скриншот
program OCEHKA;
uses crt;
var a,b:integer;
fign:boolean;
s:string;
begin
fign:=false;
write('Введите оценку- ');
ReadLn (a);
b:=a;
case b of
1:s:='Плохо';
2:s:='Неудовлетворительно';
3:s:='Удовлетворительно';
4:s:='Хорошо';
5:s:='Отлично';
end;
WriteLn (s);
ReadLn(s);
end.