3 года назад

Составить кроссворд чтобы главное слово было квартет

Знания

Информатика

1 ответ:

Gromn3 года назад

0 0

Составляй сам(а). Ты учишься или кто?

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

Как на Pascal ABC написать программу, которая будет считать сумму цифр числа, введенного с клавиатуры? Количество цифр в числе н

Anna229

Program LOL2016;
var n,s,r:integer;
begin
readln(n);
s:=0;
while(n <> 0) do begin
r:=n mod 10;
s:=s+r;
n:=n div 10;
end;
writeln(s);
end.
<span>
если что то не понятно просто спроси и я обьясню :)</span>

0 0

4 года назад

РЕШИТЕ В ПАСКАЛЕ!!!1. Найти разность между максимальным и минимальным числом из n введенных чисел.

Матве1221 [10]

Var a:array[1..100] of integer;
i,n,max,min:integer;
begin
writeln('Skolko elementov');
readln(n);
for i:=1 to n do begin write('a[',i,']='); read(a[i]); end;
max:=a[1]; min:=a[1];
for i:=1 to n do if a[i]>max then max:=a[i];
for i:=1 to n do if a[i]<min then min:=a[i];
writeln('Max - Min =' ,max-min);
<span>end.</span>

0 0

4 года назад

Заполните массив случайными целыми числами из отрезка [0,10]

ujthc [7]

Const n = 10;
var x: array[1..n] of integer;
i: integer;
begin
Randomize;
for i := 1 to n do
begin
x[i] := Random(11);
Write(x[i]:4)
end;
end.

0 0

4 года назад

Помогите, прошу вас!Выберите точки 480, 115, 555, 160, 220, в которые может допрыгать Кузнечик из начального положения в точке 0

Михаил Пономарев

Число должно раскладываться на сумму 15 и 9. Или - найдутся такие натуральные (или 0) числа k и m, что
X = 15*k + (15-6)*m = 15*k + 6*m

как найти - делить с остатком на 15, потом на 6, если остаток = 0 то нашлись.

480 = 15 * 32 + 6 * 0 + 0
115 = 15*7 + 10 = 15*7 + 6 * 1 + 4
555 = 15 * 15 + 6 * 0
160 = 15 * 10 + 6*1 + 4
220 = 15 * 14 + 6 * 1 + 4

ответ. 480 и 555

0 0

4 года назад

Катя нарисовала рисунок и реши их ряд на своей кровати сколько способами она может это сделать запиши ответ

RoboProgrammer [50]

6+8=14 рисунков - всего рисунков у Кати
14-5=9 рисунков- Осталось
Ответ:в альбоме осталось 9 рисунков

0 0

4 года назад