Var
ar:array[1..10] of integer;
k,i,n:integer;
begin
readln(k);
for i:=1 to 10 do
begin;
readln(ar[i]);
if ar[i]>k then n:=n+1;
end;
writeln('Array:');
for i:=1 to 10 do write(ar[i]:4);
writeln;
write('Res:',n);
end.<span> </span>

0 0

4 года назад

1). Напишите программу, запрашивающую ваше имя, фамилию, класс и количество уроков в понедельник, вторник, среду, четверг, пятни

Насёнка

Program DZ;
Var name : string ;
klass,urok : integer;
Begin
writeln("Введите имя");
Readln(name);
writeln("Введите класс");
Readln(klass);
writeln("введите колво уроков");
readln(urok);
Writеln("я",name,"ученик класса",klass,"класса");
writeln("на этой неделе у меня",urok,"уроков");
End.

0 0

4 года назад

Разделить 1100011101 на 10010.Ответ пожалуйста с решением

Profootballer

1100011101 - 797
10010 - 18
797:18=44,2(7)

0 0

4 года назад

Разгадайте кроссворд "компьютер как универсальное устройство для работы с информацией"

Любовь95

2 файл
6 архиватор
8 меню
11 программист
12 суперкомпьютеры
14 процессор

1 папка
4 диалоговые
5 программа
7 интерфейс
9 вирус
13 контекстное

0 0

4 года назад

Шрифт без засечек называется ​

Шрифт без засечек называется