Написать программу на языке ! 1)дан текст. определите количество цифр в нем. 2)вывести на экран числа в виде следующей таблицы: 41 42 50 51 52 60 61 62 70 71 72 80 3)дан текст, в котором имеются цифры. найдите их сумму. тема: вложенные циклы
Var a: array of integer; // Объявление массива целых чисел i, n: integer; // объявление целочисленных переменных begin // Запросим с клавиатуры размер массива // и запишем его в переменную n write('введите n:'); readln(n);
// Теперь выделим память под n элементов массива SetLength(a, n);
// теперь запросим с клавиатуры n чисел для массива for i := 0 to n-1 do begin write('a[', i, ']='); readln(a[i]); end;
// теперь в цикле уменьшим каждый элемент на единицу for i := 0 to n-1 do a[i] := a[i] - 1;
// распечатаем массив for i := 0 to n-1 do write(a[i], ' '); end.
Если при сложении с единицей в некоторой системе счисления из двухзначного числа получается трехзначное, то двухзначное число было максимально возможным двухзначным числом, записанным в этой системе и обе его цифры были на единицу меньше основания системы счисления.Таким образом, можно утверждать, что заданные числа это 33₄, 66₇, 88₉Число 100 в системе счисления по оcнованию n равно n², т.е. для указанных чисел это будут значения 4²=16, 7²=49 и 9²=81. Остается вычесть единицу.Соответственно, в десятичной системе 33₄=15, 66₇=48, 88₉=80
1)
program test1;
var a:string;
i,n,f:integer;
begin
read (a);
n:=length(a);
for i:=1 to n do begin
if (a[i]>='0') and (a[i]<='9')
then f:=f+1;
end;
write ('Количество цифр= ',f);
end.
2)
program test1;
var i:integer;
begin
for i:=41 to 50 do
write(i:3);
writeln;
for i:=51 to 60 do
write(i:3);
writeln;
for i:=61 to 70 do
write(i:3);
writeln;
for i:=71 to 80 do
write(i:3);
end.
3)
var s: string;
i: byte;
sum,c,k: integer;
begin
sum:=0;
read(s);
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then
begin
val(s[i],c,k);
sum:=sum+c;
end;
writeln('Сумма цифр=',sum);
end.