А)
var
a:array[1..10]of integer;
i:integer;
begin
for i:=1 to 10 do
a[i]:=random(20)+1;
for i:=10 downto 1 do
write(a[i],' ');
end.
б)
var
a:array[1..20]of integer;
i:integer;
begin
for i:=1 to 20 do
a[i]:=random(11*i)+10*i;
for i:=1 to 20 do
if i mod 2=1 then write(a[i],' ');
end.

0 0

4 года назад

Составьте программу которая выводит на экран пример на умножение двух однозначных чисел,запрашивает ответ пользователя.проверяет

Nillkizz [9]

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a:=Random(1,9);
var b:=Random(1,9);
Writeln('Сколько будет ',a,'x',b,'?' );
var c:=ReadInteger('Введите ответ и нажмите Enter ->');
if c=a*b then Writeln('Правильно!')
else Writeln('Вы ошиблись, ',a,'x',b,'=',a*b)
end.

Тестовые примеры:
Сколько будет 7x4?
Введите ответ и нажмите Enter -> 28
Правильно!

Сколько будет 8x7?
Введите ответ и нажмите Enter -> 65
Вы ошиблись, 8x7=56

0 0

4 года назад

Подсчитать во сколько раз изменится информационный объем страницы текста при его преобразовании из кодировки Windows в кодировку

rus77 [5]

Windows 1251 - 8 бит
КОИ-8 - 8 бит
Не изменяется

0 0

4 года назад

1. Девочка заменила каждую букву своего имени ее номером в алфавите. Получилось 1612191151. Как зовут девочку? а) Алёна; б) Елен

stainles

1д
2б
3а
4в
5г

так скорее

0 0

4 года назад