C++,Pascal

var
s: string;
i, f, ff: integer;

begin
f := 0; ff := 0;
writeln('Введите число');
readln(s);
for i := 1 to length(s) do
begin
if s[i] = '0' then inc(f);
if s[i] = '5' then inc(ff);
end;
writeln('В этом числе цифра 5 встречалась ', ff, ' раз');
writeln('В этом числе цифра 0 встречалась ', f, ' раз');
end.

Найти все целые числа из промежутка от 50 до 15 в десятичной записи которых есть цифра 9

Написать программу,которая выводи на экран таблицу квадратов и кубов целых чисел от 1 до 10.Столбцы таблицы должны иметь обозоначения типа а,a^,a^3

program first;
uses crt;
var
f:byte;
begin
clrscr;
write('f');
for f:=1 to 10 do begin
write (#32,#32,#32,#32); write(f);end;
writeln;
write('f^2');
for f:=1 to 10 do begin
write (#32,#32,#32);write (f*f);end;
writeln;
write('f^3');
for f:=1 to 10 do begin
if (f*f*f)>99.5 then write (#32,#32);
if ((f*f*f)>9.5) and ((f*f*f)<99.5) then write (#32,#32,#32);
if ((f*f*f)>0) and ((f*f*f)<9.5) then write (#32,#32,#32);
write(f*f*f);end;
readln;
end.