Var
p: integer;
begin
readln(p);
if p=5 then print('Молодец!')
else if p = 4 then print('Хорошо!')
else if p<=3 then print('<span>Лентяй!</span>')
end.
Да могут ведь например 3м
Uses Crt;
const a=0;
b=10;
n=15;
var i: longint;
Rez: longint;
begin
ClrScr;
WriteLn ('Task 1:');
for i:=10 to 35 do
Writeln(i:3);
Delay (2000);
WriteLn ('Task 2:');
for i:=5 to n do
Writeln(i*i:5);
Delay (2000);
WriteLn ('Task 3:');
for i:=a to 50 do
begin
Rez:=i*i*i;
Writeln(Rez:7);
end;
Delay(2000);
WriteLn ('Task 4:');
for i:=a to b do
Writeln(i:3);
ReadLn;
end.
Ну в общем то, просто выведет остаток от деления k/7, так как mod - отбрасывает целую часть числа.
Program n1;
<span>var x,y:real;
</span><span>begin
</span><span>readln(x);
</span><span>y:=round(x);
</span><span>if y=x then writeln('число не дробное')
</span><span>else writeln('число дробное');
</span><span>end.</span>