<span>Что будет выведено в результате выполнения:
А: = 'ЭЛЕКТРОСТАНЦИЯ';
WRITELN (COPY (А, 2, 3) + COPY (A, 12, 3) ); ?
ЛЕКЦИЯ
Определите результат выполнения:
С: = ' ЛЕФОРТОВО' ;
F: = LENGTH (С) + LENGTH (С); ?
Переменной F присвоит значение 20
Из слова ИНФОРМАТИКА получено слово ФОРМАТ. Вставьте пропущенные значения
COPY('ИНФОРМАТИКА', ,).
</span>COPY('ИНФОРМАТИКА',3 ,6)<span>
Что будет выведено в результате выполнения:
WRITELN ('24 + 24 =', 24 + 24)?
24 + 24 =48
Что будет выведено в результате выполнения:
А: = 'ЭЛЕКТРОСТАНЦИЯ';
WRITELN(COPY(A,1,7));
ЭЛЕКТРО
</span>
#include <iostream>
int count_dividers(int a) {
int res = 1;
for (int i = 2; i <= a; i++) {
if (a % i == 0) {
res++;
}
}
return res;
}
int main(void) {
int a, b;
std::cin >> a >> b;
for (int i = a; i <= b; i++) {
std::cout << count_dividers(i) << " ";
}
std::cout << std::endl;
return 0;
}
<span>program n1;
uses crt;
var aw:array[1..10] of integer;
i,w,g:integer;
begin
g:=0;
w:=10;
for i:=0+1 to w do begin
aw[i]:=random(100);
write(aw[i]:6);
end;
writeln();
write('Чот');
for i:=0+1 to w do begin
if aw[i] mod 2 = 0 then g:=g+1; end; write('Всего чотных чисел ',g);
writeln();
write('Не чот');
g:=0;
for i:=0+1 to w do begin
if aw[i] mod 2 > 0 then g:=g+1;end; write('Всего не чотных чисел ',g) ;
end<span>.
только в столбик
</span></span>
Program mnogohodovochka;
var
a,chas,sek,min:integer;
begin
writeln('vvedite chislo');
readln(a);
chas:=a div 3600;
min:=a mod 3600 div 60;
sek:=a mod 3600 mod 60;
writeln(chas, 'ч', min, 'мин', sek, 'с');
end.