begin readln(n); for i : = 1 to n do begin readln(a); c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln('цифры попарно различны') else writeln('не все цифры попарно различны'); end; end.
Ответ дал: Гость
если положить, что вода замерзает при нуле градусов, то:
program ice;
var temp : integer;
begin
writeln('введите температуру');
read(temp);
if temp > 0 then write ('вода не замерзнет')
else write('вода замерзнет');
end.
Ответ дал: Гость
отмечено как нарушение через stoker ( w: 0% t: 4 )
причина: смотри (^ этот символ означает степень, например 3^2 = три в квадрате или три в степени два) : 2,1 гбайт * 90% = 1,89 гбайт 1,89 гбайт = 1,89 * 2^10 мбайт 1,89 гбайт = 1,89 * 2^20 кбайт 1,89 гбайт = 1,89 * 2^30 байт при сохранении текста обычно используется кодировка ascii (26+26+33+33+10+спец.символы ~= 256 => 1 символ занимает 8 бит то есть 1 байт) таким образом, из условий мы имеем, что скорость записи составляет 200 символов * 1 байт = 200 байт/ минуту 200 байт представим в виде 100 * 2 теперь 3 класс s=t*v => t=s/v дано: s=1,89 * 2^30 кбайт v=100*2^1 t - ? решение: t=(1,89 * 2^30) / (100*2^1) = 0,0189 * 2^29 (минут) округлив - получается где-то 19 лет и 4 месяца (19,358 лет)
Популярные вопросы