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

3 года назад

Обчисліть скільки подібних журналів може поміститися на флешці обсягом 8 ГБ

Знания

Информатика

1 ответ:

nn-xxx [210]3 года назад

0 0

8 гб делить на обьем одного

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

На столе стоят три вазы с конфетами.В левой вазе лежат A конфет,в средней вообще лежат B конфет,в правой вазе лежат C конфет.Лен

Hollyy9 [4]

Var a,b,c,n:integer; f:boolean;
begin
readln(a,b,c);
f:=true; n:=0;
while f do
begin
if f and (a>0)
then begin a:=a-1; n:=n+1; end else f:=false;
if f and (b>0)
then begin b:=b-1; n:=n+1; end else f:=false;
if f and (c>0)
then begin c:=c-1; n:=n+1; end else f:=false;
if f and (b>0)
then begin b:=b-1; n:=n+1; end else f:=false;
end;
writeln(n);
end.

Пример:
3 3 3
7

0 0

2 года назад

Что не может осуществить пользователь наиболее современной <электронной книги> e-Reader с TFT матрицей?

Ули Ори [3]

Где варианты ответа? 
Ну, а если логически, то нельзя играть в компьютерные игры. 

0 0

4 года назад

ИЗИ ЗАДАНИЕ (35 БАЛЛОВ!!!) Каждая бактерия делится на две в течении одной минуты. В начальный момент имеется одна бактерия. Сост

Властитель игры

Программа c repeat

program bacteria_1;

var bac,min:integer;

begin

bac:=1;

write('Введите количество минут: ');

readln(min);

repeat

bac:= bac*2;

min:= min-1

until min=0;

writeln('Стало ',bac,' бакт.');

end.

Программа с for

program bacteria_2;

var bac,min,i:integer;

begin

bac:=1;

write('Введите количество минут: ');

readln(min);

for i:=1 to min do

begin

bac:= bac*2;

min:= min-1

end;

writeln('Стало ',bac,' бакт.');

end.

Написано на языке PascalABC.NET

0 0

4 года назад

Устройство ввода информации с листа бумаги

КсМ123

Сканер вводит информацию с бумаги на комп

0 0

4 года назад

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

Составьте программу, в которой значение переменной с вычисляется по формуле: а + Ь, если а — нечетное (a mod 2 = 1), и а*Ь, если

Ulija555

Var

a,b,s:integer;

Begin

readln (a,b);

if (a mod 2 = 1)

then s := a + b

else if (a mod 2 = 0)

then s := a * b;

write(s);

End.

0 0

1 год назад