минимальный объем дискового пространства,выделяемый для хранения файла, называется бит
filternovo
02.10.2021
минимальный объем дискового пространства,выделяемый для хранение файла,называется бит
starh
02.10.2021
Четное число кратно 2, а если оно кратно и 3, то оно кратно 2х3=6. // pascalabc.net 3.3, сборка 1599 от 17.12.2017 // внимание! если программа не работает, обновите версию! begin if readseqintegerwhile('ввод завершите нулем: ',t-> t< > 0).any(t-> t mod 6=0) then writeln('yes') else writeln('no') end. примеры ввод завершите нулем: -45 34 23 17 -62 15 0 no ввод завершите нулем: -45 34 23 17 -62 12 15 0 yes замечание. количество вводимых чисел не ограничено, поскольку они в памяти не хранятся. числа не должны превышать 2 147 483 647.
Староческуль-Станиславовна
02.10.2021
Var s, c, cmax: string; i, j, k, max: integer; begin write('введите предложение: '); readln(s); s : = uppercase(s) + '.'; max : = 0; i : = 1; while (i < = length(s)) do begin c : = ''; while (s[i] in ['а'..'я']) do begin c : = c + s[i]; i += 1; end; k : = 0; for j : = 1 to length(c) do if (c[j] in ['а','е','ё','и','о','у','э','ю','я']) then k : = k + 1; if (k > max) then begin max : = k; cmax : = c; end; i += 1; end; writeln('слово с наибольшим количеством гласных: ',cmax); end. пример: введите предложение: написать алгоритм,что указывает в данному предложении слово, в котором количество гласных максимальное слово с наибольшим количеством гласных: предложении
минимальный объем дискового пространства,выделяемый для хранения файла, называется бит