Program spinogryz21;
var
x, i: integer;
yes: boolean;
begin
yes := FALSE;
write('Введите число Х ');
readln(x);
for i := 1 to 4 do
begin
if (x mod 10) = 6 then yes := TRUE;
x:=x div 10;
end;
if yes then writeln('6 входит в число Х')
else writeln('6 не входит в число Х');
end.
Var
a: integer;
t,s: boolean;
begin
t := true;
read(a);
s := a > 0;
if a <> 0 then
read(a);
while t and (a <> 0) do
begin
t := (a > 0) <> s;
s := not s;
read(a)
end;
writeln(t)
end.
Примерно так .
_______________________________________________________
Паскаль.
<span>var x,n: integer;
begin
write('n = ');
readln(n);
x := 1;
while sqr(x) < n do begin
write(sqr(x),' ');
x := x + 1
end;
readln
end.
кумир вроде как тотак.
</span>заготовь мне переменные
А, И: целые будут;
начинай
пишистроку ("Введите натуральное число: ");
читай (А) ;
в цикле по И от 1 до А начинай
пишистроку (И, ":");
пишистроку (И*И, " ",И*И*И) ;
пишистроку;
кончай;
читай;
<span>кончай!</span>