var a:array[1..10,1..15]of integer;
i,j,n,x:integer;
begin
for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101);
for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end;
readln(x);
for i:=1 to 10 do for j:=1 to 15 do
if a[i,j]=x then inc(n);
writeln(n);
end.
var a:array[1..10,1..15]of integer;
i,j,k:integer;
begin
for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101);
for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end;
for i:=1 to 10 do for j:=1 to 15 do
if a[i,j] mod 2=0 then inc(k);
writeln(k);
end.
Слово вводится с клавиатуры латиницей(максимум 19 символов)
#include <iostream>
using std::cout;
using std::cin;
using std::endl;
#include <cstring>
using std::strlen;
using std::strcat;
#include <iomanip>
using std::setw;
int main()
{
char s[20];
cout << "Enter the word: ";
cin >> setw(20) >> s;
char s2[strlen(s) * 3 + 1];
for(int i = 0; i < strlen(s); i++)
{
s2[i] = '*';
}
s2[strlen(s)] = '\0';
strcat(s2, s);
for(int i = strlen(s2); i < sizeof(s2); i++)
{
s2[i] = '*';
}
s2[sizeof(s2)] = '\0';
cout << s2 << endl;
return 0;
}
81920/1024 =80 Кбайт
ответ 4