2 суждения из истории.

Знания

Информатика

1 ответ:

vic-ros [10]3 года назад

0 0

Принятие христианства имело большое значение для страны.

В центральной Азии кочевали монгольские племена.

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

Состпвитть таблицу истинности

kobin-mikhail

Решение находится во вложениях.

0 0

4 года назад

Пожалуйста, помогите! У меня горят сроки по лабам, сам только-только начал изучать с++. Несколько часов бился над этой задачей,

anderson-70 [2]

Лови

#include <bits/stdc++.h>

using namespace std;

int n;

int main() {

cin >> n;

int tmp, t = 0;

tmp = n;

while (tmp > 0) {

t *= 10;

t += tmp%10;

tmp /= 10;

}

if (t == n) cout << "YES\n";

else cout << "NO\n";

}

0 0

4 года назад

В системе программирования Pascal ABC выполните проверяемое задание if1 для исполнителя Робот(обойти препятствие и попасть в отм

thektavos

Так?

uses Robot;
begin
Task('if1');
right;
if WallFromUp then
begin
    down;
    right;
    up;
end;
if wallfromdown then
begin
    up;
    right;
    down;
end;
paint;
end.

0 0

4 года назад

Как перевести километры в час в метры в секунду в Паскале

rkfdf

Var
A:real;
Begin
Write('Скорость в км/ч = ');
ReadLn(A);
WriteLn('Скорость в м/с = ',A/3.6);
End.

0 0

4 года назад

Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените все нечетные элементы с четными индексами на нули. Вы

Глухов Виктор Мих...

Var a:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(0,20);
write(a[i]:3);
if(odd(a[i])) and (not odd(i)) then a[i]:=0;
end;
writeln();
for i:=1 to 10 do
write(a[i]:3);
<span>end.</span>

0 0

4 года назад