4 года назад

Рассказать о картине опять двойка об управлении другим и управлении собой другим

1 ответ:

Felixxrus4 года назад

0 0

План
1.Мальчик получил двойку.
2. Мама и сестра огорчены.
3. Младший брат и собака все равно рады видеть мальчика.
4.Делу время, потехи час.
Главный герой - школьник.
Мальчик никогда не успевал делать домашнее задание. Мама не удивлялась двойками.

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

Запиши число 13478 в развёрнутом виде, начиная со старшего разряда.

Джексон93 [7]

Ответ:

10000 3000 400 70 8

Объяснение:

вот как-то так

0 0

4 года назад

Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10 и выводит на экран коли

Евгений2824 [153]

Var a:array[1..10] of integer;
i,count:integer;
begin
for i:=1 to 10 do begin
a[i]:=1+random(10);
write(a[i],' ');
end;
count:=0;
for i:=1 to 10 do begin
if a[i]=1 then
count:=count+1;
end;
writeln('Кол-во элементов равных единице=', count);
end.

0 0

3 года назад

Составьте программу позволяющую удвоить каждый символ заданной строки и вывести полученную строку на экран

orext

Var a,b:string;
i: integer;
begin
write('Введите строку: '); readln(a);
b:='';
for i:= 1 to length(a) do b:=b+a[i]+a[i];
write('Новая строка: ',b);
end.

0 0

4 года назад

Найдите основание x системы счисления, если: а) 14(x)=9(10) б) 2002(x)=130(10)

Сергей0611

А) 14> 9, значит основание с.с меньше 10, посмотрим при делении на какое число числа 9 у нас в остатке останится 1, очевидно что это 2,4,8 : 2 и 4 мы откидываем т.к и во 2 и в 4 с.с нет цифры 4, значит это 8, х=8.
б) опять же 2002>130, значит основание меньше 10, нам теперь нужен остаток 2, на ккакое число делится 128? это 2(не подходит т.к и на 130 делится), это 4(проверим, 128+0+0+2, подходит) х = 4

0 0

4 года назад

Ребят, срочно!! Нужно ввести пять целых чисел и найти максимальное из них. В Паскале, используя оператор "if then else". Как пон

tarlun

Program abc
var a,b,c,d,e,max:real;
Begin
Writeln ('Введите пять целых которые нужно сровнять между собой');
readln (a,b,c,d,e);
if a>b then max:=a else max:=b;
if c>max then max:=c;
if d>max then max:=d;
if e>max then max:=e;
Writeln ('Наибольшее число ',max);
End.

0 0

4 года назад