Задать вопрос!

Задать вопрос!

Все категории

виктор1222341 [7]

4 года назад

5

ПОМОГИТЕ С В1 ПОЖАЛУЙСТА!!! ОЧЕНЬ НАДО

ПОМОГИТЕ С В1
ПОЖАЛУЙСТА!!!
ОЧЕНЬ НАДО

Информатика

1 ответ:

Cheh4 года назад

0 0

"1212"

2*3=6

6+2=8

8*3=24

24+2=26

Читайте также

Скорость передачи данных через ADSL – соединение равна 256000 бит в секунду. Какое количество времени (в секундах) потребуется д

nikkanik [7]

256000-1000=156000
вот такой пример

0 0

4 года назад

Найти количество нулевых элементов среди 20 в веденых с клавиатуры

Zyfan

Var
i,count:integer;
h: array [1..20] of integer;
begin
count:=0;
writeln('Введите элементы');
for i:=1 to 20 do
read(h[i]);
for i:=1 to 20 do
if h[i]>0 then
count:=count+1;
writeln('Количество нулевых элементов ', count)
end.

0 0

4 года назад

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

dimastbk [9]

<span>информация представленная в форме пригодной для обработки компьютером 6 букв
это будет данные.
</span>

0 0

4 года назад

Написать программы: 1. Запросить у пользователя 2 числа, наибольшее вывести на экран, наименьшее возвести в квадрат и тоже выве

александр1143

1.
Var A,B : Integer;
Begin
Readln(A,B);
If A>B then Writeln(A,' ',B*B) else Writeln(B,' ',A*A)
end.

2.
Var A : Byte;
Begin
Readln(A);
Case A of
   1..3 : Writeln('Первый квартал');
   4..6 : Writeln('Второй квартал');
   7..9 : Writeln('Третий квартал');
   10..12 : Writeln('Четвертый квартал');
end;
end.

0 0

4 года назад

Даны числа от -10 до 15. найти сумму положительных и производение отрицательных. ПРОШУ ПОМОГИТЕ!!

Анастасия Ларченко [68]

Var a,b,n:integer;
begin
a:=1;
n:=-10;
while n<=15 do
begin
if n<0 then a:=a*n else b:=b+n;
n:=n+1;
end;
write (a:6,b:6);
<span>end.</span>

0 0

3 года назад

Прочитать ещё 2 ответа