4 года назад

Помогите. 3 класс. Информационно-коммуникационные технологии

Знания

Информатика

1 ответ:

Kostja34 года назад

0 0

Скопировать рисунок, а потом его вставить)(ну или как?)

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

Задано число, проверить, если число положительное то его нужно удвоить, если число отрицательное уменьшить в 2 раза, иначе остав

termit2018 [1]

Var x: real;
begin
readln(x);
if x>=0 then x:= writeln(x*2) else x:= writeln(x/2);
<span>end.

</span>Второй вариант:
var x: real;
begin
readln(x);
if x>=0 then x:=x*2 else x:= x/2;
writeln(x)
end.

0 0

4 года назад

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

Выберите источники из которых мы получаем информацию телевизор стиральная машина книга пылесос компьютер.

вячкслав

телевизор, книга ,компьютер

0 0

4 года назад

Является ли природа источником информации для человека?Приведите примеры из собственной жизни.

Сибиряк001

<span>да мы можем увидеть какие есть деревья ,животные и научиться различать их))</span>

0 0

3 года назад

Составьте программу по которой компьютер 10 раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение

Виталий9 [11]

1.
program ddg2;

var
i, j, k: Integer;

begin
repeat
begin
WriteLn('число: ');
ReadLn(i);
k := k + 1;
j := j + i;
end
until k = 10;
WriteLn('Среднее арифметическое=', j / 10);
end.

2.
program ddg1;
var i,j,k:Integer;
begin
while k<>10 do begin
WriteLn('число: ');
ReadLn(i);
k:=k+1;
j:=j+i;
end;
WriteLn('Среднее арифметическое=',j/10);
end.

3.
program ddg;

var
i, j: Integer;

begin
for i := 1 to 10 do
begin
WriteLn('Введите число:');
readln(i);
end;
j := j + i;
WriteLn('Среднее арифметическое = ', j / 10);
end.

4. Таблица умножения:

program fgg;

var
n, m: integer;

begin
for n := 1 to 10 do
for m := 0 to 10 do
WriteLn(n, '*', m, '=', n * m);
end.

0 0

4 года назад

Объясните знак wifi zone

Farizasha

Мы делали сумативку и нам учительница сказала что то вроде зона беспроводной связи

0 0

4 года назад

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