Var x,y,U, S:integer;
begin
readln (x,y);
S:=x+y;
if (S>100) then U:=S/2;
if (S<100) then U:=S; (зависит от условия. по-моему, в задании неправильно поставлено второе условие.)*
writeln (U);
end.
*если в условии написано
"в противном случае умножить на два, то
if (S<100) then U:=S*2;
а если оставить число неизменным, то
if (S<100) then U:=S;
Может операционная система? Операционная система -это комплекс системных программ, обеспечивающих совместное функционирование всех устройств компьютера, и поддерживающий работу всех его программ
1.Предмет: газета, стадион
Процесс: прогулка, чтение
Явление: радуга, мираж
2. а) Пенал, учебник, тетрадь
б) Мышь, монитор, клавиатура
в) Бумага, магнитный диск, магнитная лента
г) Растение, животное, человек
4. а) Страны
б) Страны Америки
в) Страны Северной Америки
г) Величайшие реки
д) Реки России
е) Реки Европы
ж) Периферийные устройства ПК
з) Устройства ввода
и) Растения
к) Плодоносные деревья
5.а) Эрмитаж, Дворцовый мост, Музей Тульский пряник
б) Третьяковская галерея, Красная площадь, Большой Театр
в) тут напиши любые достопримечательности твоего города.
Ip - 192.75.64.98
адрес сети - 192.75.64.0
Следовательно переведем в двоичный код:
192 (10) = 11000000 (2)
75 (10) = 01001011 (2)
64 (10) = 01000000 (2)
98 (10) = 01100010 (2)
192.75.64.98
192.75.64.0
________
255.225.225.х
Следовательно
255 = 11111111 (8 единиц)
Следовательно
8*3=24
01100010
*
00000000
________
10000000 (всего 1 единица)
Следовательно
24+1 = 25
Ответ: 25 единиц
Var
a, b: integer;
begin
Write('Введите через пробел делимое и делитель: ');
Readln(a, b);
Writeln(a, '/', b, '=', a div b, ', остаток ', a mod b)
end.
Тестовое решение:
Введите через пробел делимое и делитель: 1564 137
1564/137=11, остаток 57