1.написать программу, которая в последовательности натуральных чисел (всего чисел 10) находит сумму всех четных чисел. гарантировано в последовательности хотя бы одно четное число. 2одноклеточная амеба каждые 3 часа делится на 2 клетки. определить, сколько будет амеб через 3,6,9,12,…,24
часа.примечание. решать через цикл while. (это в паскаль абс)

👇

Открыть все ответы

Ответ:

Фиаско1337

29.04.2023

По сравнению с просмотром кино, при работе на компьютере мы сосредатачиваемся на более мелких областях и более внимательно, а не смотрим на весь экран в целом. Так же к монитору мы сидим куда ближе чем к телевизору. Потому мигание и прочие деформации картики становятся более заметными. Потому так ценится плотность пикселей и цветопередача монитора. Например плотность пикселей в современных смартфонах и планшетах обычно выше чем у мониторов, потому что мы смотрим на них еще с более близкого растояния чем на мониторы.
Надеюсь все выше сказанное дает понять причину увиличения частоты обновления
Сама же настройка этой частоты зависит от самого монитора и тп

Как вы думаете, почему частота обновления изображения на экране монитора должна быть больше, чем час

Как вы думаете, почему частота обновления изображения на экране монитора должна быть больше, чем час

4,7(31 оценок)

Ответ:

кристина0052368

29.04.2023

//Pascal ABC.NET v3.0 сборка 1111

begin
var d:=ReadlnString('Вас приветствует программа, которая может делить '+'два числа с остатком. Напишите свое имя');
Writeln('Здравствуйте, ',d,'!');

repeat
Writeln('Как нужно написать ответ?',#13#10,'1 вариант. 5: 3 = 1(ост.2)',#13#10,'2 вариант. 5 = 3*1 + 2',#13#10,'0 - завершить работу');
var c:char;
Repeat
c:=ReadlnChar('Введите 0, 1 или 2:');
case c of
'0': exit;
'1','2':break;
end;
until False;
var a,b:BigInteger;
if not BigInteger.TryParse(ReadlnString('Введите целочисленное делимое:'),a) then
begin
Writeln('Вы ввели неверное значение. Работа завершена');
Exit
end;
if not BigInteger.TryParse(ReadlnString('Введите целочисленный делитель:'),b) then
begin
Writeln('Вы ввели неверное значение. Работа завершена');
Exit
end;
if integer(b)=0 then
{приведение к типу Integer. Менее абстрактно, чем BigInteger}
begin
writeln('Вы ввели неверное значение.');
exit
end;
if c='1' then WritelnFormat('{0}:{1}={2}(ост.{3})',a,b,a div b,a mod b)
else
WritelnFormat('{0}={1}*{2}+{3}',a,b,a div b,a mod b);
var f:char;
Repeat
f:=ReadlnChar('Если вы хотите завершить работу, введите "0", если продолжить - любую букву.');
case f of
'0': exit;
else break;
end;
until False;
until False
end.

4,8(100 оценок)

Это интересно:

Здоровье

10.07.2021

Голубые глаза: миф или реальность?...

Компьютеры-и-электроника

04.07.2022

Как удалить историю поиска в iPod Touch: шаги по настройке конфиденциальности...

Стиль-и-уход-за-собой

07.05.2020

Правильный выбор парика: все, что вам нужно знать...

Образование-и-коммуникации