Дан целочисленный массив из 30 элементов элементы массива могут принимать значения от 0 до 1000 найти колво элементов массива десятичная запись которых содержит ровно 2цифры причем хотя бы одна их этих цифр 9ых
Var a: array[1..30] of integer; i, k: integer; begin k:=0; //считываем массив for i:=1 to 30 do readln(a[i]); for i:=1 to 30 do //проверяем, если элемент > 9 и < 100, то он двузначный //если остаток от деления на 10 = 9 //или результат деления на 10 = 9 //то в числе содержится цифра 9 if (a[i] > 9) and (a[i] <100) and ((a[i] mod 10 = 9) or (a[i] div 10 = 9)) then inc(k); //увеличиваем k с инкрементом 1 writeln(k); end.
В приложении программы в файлах 1. #include <iostream> using namespace std; int main() { setlocale(LC_ALL,"Russian" ); int k, n, sum = 0; cout << "Введите K: "; cin >> k; cout << "Введите N: "; cin >> n;
for(int i = k ; i <= n; i++) { sum = sum + i; }
cout << "Сумма чисел от " << k << " до " << n << " равна " << sum << endl; return 0; }
// PascalABC.NET 3.0, сборка 1088 const n=10; // количество вводимых чмсел var a:array[1..n] of integer; i,k,t:integer; begin Writeln('Введите через пробел ',n,' целых чисел'); k:=0; for i:=1 to n do begin Read(t); if Odd(t) then begin Inc(k); a[k]:=t end end; if k>0 then begin Write('Нечетные числа: '); for i:=1 to k do Write(a[i],' '); Writeln end else Writeln('Все введенные числа - четные') end.
a: array[1..30] of integer;
i, k: integer;
begin
k:=0;
//считываем массив
for i:=1 to 30 do
readln(a[i]);
for i:=1 to 30 do
//проверяем, если элемент > 9 и < 100, то он двузначный
//если остаток от деления на 10 = 9
//или результат деления на 10 = 9
//то в числе содержится цифра 9
if (a[i] > 9) and (a[i] <100) and ((a[i] mod 10 = 9) or (a[i] div 10 = 9)) then
inc(k); //увеличиваем k с инкрементом 1
writeln(k);
end.