kashxb2056
?>

Что делает эта программа? procedure vvod(var st: string[10]; c: string); begin writeln('ввести'+' '+c); readln(st); end; function kol(c: string; st: string): integer; var k, i: integer; begin k: =0; i: =1; while i< =length(st) do begin if copy(st, i, 1)=c then k: =k+1; i: =i+1; end; kol: =k; end; var s, s1, s2: string[10]; begin vvod(s, 'строку'); vvod(s1, 'символ первый'); vvod(s2, 'символ второй'); if kol(s1, s) > kol(s2, s) then writeln('символ ', s1, ' встречается в строке ', s, kol(s1, s): 4, ' раз. это > , чем встречается ', s2) else if kol(s2, s) > kol(s1, s) then writeln('символ ', s2, ' встречается в строке ', s, kol(s2, s): 4, ' раз. это > , чем встречается ', s1) else writeln('количество символов ', s1, ' и ', s2, ' в строке ', s, ' одинаково и =', kol(s1, s): 4) ; end.

Информатика

Ответы

violettamakhina2537
Подсчитывает кол-во вхождений символа1 и символа2 в сторку, и говорит какого больше или равное колво вхождений
ВасилийКлимова1695
1. определим количество точек по сторонам изображения. dpi - это количество точек на одном дюйме, а дюйм приблизительно равен 2.54 см. тогда изображение по одной из сторон будет содержать 10/2.54×600 ≈ 2362 точки, а по второй - 10/2.54×1200 = 4724 точки. 2. для хранения информации о цвете каждой точки требуется 2 байта. 3. определим информационный объем файла 2362×4724×2 = 22316176 байт. это длинная запись величина, поэтому переведем её в более крупные единицы 22316176 байт = 22316176/1024 кбайт ≈ 21793 кбайт = 21793/1024 мбайт ≈ 21.28 мбайт выбирайте любой из ответов - в байтах, кбайтах, мбайтах
ИвановнаВладимир1832
#include < iostream> #include < cstdlib> #include < ctime> using namespace std; int main() { int ranmas[10] = {}; srand(time(null)); cout< < "original massiv: "< < endl; for (int i = 0; i < 10; i++) {   ranmas[i] =rand() % 41 - 20;   cout < < ranmas[i]< < endl;   } cout< < "final massiv: "< < endl; for(int i=0; i< 10; i++) {     if (ranmas[i] % 2==0){ ranmas[i]=-9; } }   for (int i = 0; i < 10; i++) { cout < < ranmas[i]< < endl; } return 0; }

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Что делает эта программа? procedure vvod(var st: string[10]; c: string); begin writeln('ввести'+' '+c); readln(st); end; function kol(c: string; st: string): integer; var k, i: integer; begin k: =0; i: =1; while i< =length(st) do begin if copy(st, i, 1)=c then k: =k+1; i: =i+1; end; kol: =k; end; var s, s1, s2: string[10]; begin vvod(s, 'строку'); vvod(s1, 'символ первый'); vvod(s2, 'символ второй'); if kol(s1, s) > kol(s2, s) then writeln('символ ', s1, ' встречается в строке ', s, kol(s1, s): 4, ' раз. это > , чем встречается ', s2) else if kol(s2, s) > kol(s1, s) then writeln('символ ', s2, ' встречается в строке ', s, kol(s2, s): 4, ' раз. это > , чем встречается ', s1) else writeln('количество символов ', s1, ' и ', s2, ' в строке ', s, ' одинаково и =', kol(s1, s): 4) ; end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

aivanova
Georgievich-Zamudinovna2003
MonashevFesenko1483
nevzorova
pbttehnology
bike-garage8
websorokin
Yelena1409
cipfarm484
zakupka-marion
albina6580
vitbond12
Abdullaev
chuev4444
Aleksandr72