Ученик221603
24.01.2021 15:08

1.Аппаратное обеспечение
1) служебные программы
2)устройства ввода
3)звуковые файлы
Информационные ресурсы
1) служебные программы
2)устройства ввода
3)звуковые файлы
Программное обеспечение
1) служебные программы
2)устройства ввода
3)звуковые файлы
2.Отметьте общие имена объектов (несколько вариантов ответов)
Машина
Берёза
Самая высокая вершина
Столица
Windows 10
Байкал
Операционная система
Москва
3.Перечислите ЧЕРЕЗ ЗАПЯТУЮ БЕЗ ПРОБЕЛОВ по возрастанию все возможные двузначные числа, в записи которых используются только цифры 1, 5 и 6. Каждую из указанных цифр в записи числа можно использовать не более одного раза.

4.В отношении "является разновидностью" находятся объекты:
1)источник информации - учебник
2)принтер - сканер
3)приложение - программное обеспечение
4)программа - память​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
НикитаДикий
11.10.2021 06:22
Var a, b: integer;
var c: string;
begin
writeln('Введите 1 число.');
readln(a);
writeln('Введите 2 число.');
readln(b);
writeln('Знак операции.');
readln(c);
if c='*' then writeln(a*b);
if c='/' then writeln(a/b);
if c='-' then writeln(a-b);
if c='+' then writeln(a+b);
end.
2 ЗАДАЧА 
var a, b: real;
begin
writeln('Зарабаток Пети:');
readln(a);
writeln('Зарабаток Петрова:');
readln(b);
if a>b then writeln('Петя заработал больше Петрова.')
else if a=b then writeln('Петров и Петя заработали одинаково.')
else
writeln('Петров заработал больше Пети.');
writeln('Среднее: ', (a+b)/2);
end.
0,0(0 оценок)
Ответ:
Даша29911
21.01.2020 02:37
Не самый рациональный метод решения, но как говорится чем смог тем

var a,b,c,x,kc,kn,k1,k2:integer; 
begin 
kc:=1; 
kn:=1; 
k1:=0; 
k2:=0; 
a:=0; 
b:=0; 
writeln('Введите число x'); 
read(x); 
while x>0 do begin 
c:=x mod 10; 
if c mod 2=0 then begin 
inc(k1); 
a:=a+c*kc; 
kc:=kc*10; 
end; 
if c mod 2<>0 then begin 
inc(k2); 
b:=b+c*kn; 
kn:=kn*10; 
end; 
x:=x div 10; 
end; 
if k1>k2 then writeln('Четных больше нечетных') else if k1=k2 then writeln('Количество четных = количеству нечетных') else writeln('Четных меньше нечетных'); 
writeln(a,' ', b); 
end. 
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота