4 года назад

Нарисовать любой цветной рисунок в паскале АВС (7 класс)

Знания

Информатика

1 ответ:

Гузалийка [1]4 года назад

0 0

Рисунок цветного чайника, код в файле

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

. Какие действия вы бы добавили, чтобы был выполним следующий алгоритм переправы через Волгу в районе г. Саратова: Код: Подойти

Arcktick

Подойти к реке.
Посмотреть где аренда лодок.
Арендовать лодку.
Сесть в лодку.
Плыть на лодке, пока не доплывет до другого берега.
Слезть с лодки на берег.

0 0

4 года назад

Пользователь вводит трехзначное число, надо вычислить сумму чисел этого числа.

Moltfd [50]

Var x,a,b,c:integer;
begin
write('Введите число: ');read(x);
a:=x div 100;
b:=x div 10 mod 10;
c:=x mod 10;
writeln('сумма цифр: ',a+b+c);
end.

0 0

4 года назад

В ячейку электронной таблицы введена формула, содержащая относительную ссылку на другую ячейку. Выберите правильный вид записи о

hey mickey

Правильный ответ а) D1 .

0 0

4 года назад

1. В одной из кодировок Unicode каждый символ кодируется 16 битами. Определите размер следующего предложения в данной кодировке.

Olgafed [7]

Ответ:

1. Каждая буква, включая пробелы и знаки препинания, являются символами. В данном примере 38 символов, значит 38 * 16 бит = 608 бит

Ответ: 608 бит

2. Что бы узнать количество символов в документе, сначала необходимо узнать сколько символов на одной странице

50 * 64 = 3200 символов.

Далее нужно узнать сколько символов на 16-ти страницах

3200 * 16 = 51200 символов

Каждый символ весит 16 бит

51200 * 16 = 819200 бит

Переводим биты в байты

819200 / 8 = 102400 байт

Переводим байты в Кбайты

102400 / 1024 = 100 Кбайт

Ответ: 100 Кбайт

0 0

4 года назад

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

Напишите программу, которая в последовательности целых чисел определяет количество трехзначных чисел, кратных 7. Программа получ

Alyana

uses crt;
var ch,i,n,count:integer;
begin
n:=0;
count:=0;

write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
while ((ch<>0) and ( n <1001)) do
begin
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
inc(n);
end;
writeln(count);
readln;
end.

0 0

1 год назад