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

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

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

dudinkafom [66]

3 года назад

5

Срочно Заранее огромное спасибо!!!!

Срочно
Заранее огромное спасибо!!!!

Информатика

1 ответ:

глеб228333 года назад

0 0

1 наверно рулит
2 бензобак
а остальное не знаю

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

Скорость чтения ученика 6 класса составляет приблизительно 160 символов в минуту.Какой объем информации получит ученик ,если он

ябарзунова

<span>ск-ть 160 сим/мин</span>
<span>время 30 мин</span>
<span>всего 160*30=4800сим</span>

<span>3-х дюймовая дискета эт я так понимаю 3,5", тогда примерно 1,4 мегабайта... половина - это примерно 0,7 Мб или 716,8 Кб (1024*0,7) или 734003,2 байт (716,8*1024). округлим, получим 734003 байта. Если считать, что стандартный символ - это 1 байт, то имеем 734003 символа. Тогда 734003/160=4587,51875 мин. ~ 4588 мин.</span>

0 0

1 год назад

Вводиться n чисел , определить сумму чисел кратных 5 и 10 , а так же их количество

smeck1337 [31]

Const n=10;
var a: array [1..n] of integer; - массив чисел
var i,j,s: integer;
begin
j:=0;
s:=0;
for i:=1 to n do a[i]:=random(100);
for i:= 1 to n do
begin
if ((a[i] mod 5 = 0) or (a[i] mod 10 = 0)) then
begin
s:=s+a[i]; j:=j+1;
end;
end;
writeln('число чисел, кратных 5 и 10 = ', j);
writeln('сумма чисел = ',s);
end.

0 0

3 года назад

Определите имена персонажей по отрывку из текста: Вещь, которую я сейчас прочитаю – произнес он, - была написана специально для

Ahito [596]

Алиса и Шалтай
из сказки "Алиса в Стране чудес"

0 0

4 года назад

Напишите программу вычисления произведений.(Turbo Pascal)(x-1)(x-2)(x-3)...(x-n);

archakov

var x,n:integer;

begin

readln(n);

readln(x);

for i=:1 to n do

x:= (x-i);

end.

Если решение задачи будет не верно, извените значит надо писать более подробно.

0 0

4 года назад

Напишите программу на паскале, которая выбирает из списка футболистов лучшего бомбардира – того, кто забил наибольшее количество

хохотун

var

n,i,j,max,k: Integer;

lname, name: array [1..100000] of String;

y,g,a:array [1..100000] of longint;

begin

Read(n);

for i:=1 to n do

begin

read(lname[i]);

read (name[i]);

read(y[i],g[i]);

if (max<g[i]) or (i=1) then

max:=g[i];

end;

for i:=1 to n do

if g[i]=max then

begin

writeln(lname[i], ' ', name[i]);

j:=j+1;

a[j]:=i;

end;

for i:=1 to j do

write(g[a[i]], ' ');

end.

0 0

4 года назад