1
Заполнить файл f целыми числами, полученным генератором случайных чисел
16.05.2016, 14:56. Просмотров 1699. ответов 3
Метки нет (Все метки)
Заполнить файл f целыми числами, полученными с генератора случайных чисел. Получить в файле g все компоненты файла f, которые делятся на m и не делятся на п.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.05.2016, 14:56
ответы с готовыми решениями:
Заполнить файл f целыми числами, полученными с генератора случайных чисел
Доброго всем времени суток кто чем может)) 1.Заполнить файл f целыми числами,...
Заполнить файл f целыми числами, полученными с генератора случайных чисел
Заполнить файл f целыми числами, полученными с генератора случайных чисел. Вывести на экран...
Заполнить файл f целыми числами, полученными с генератора случайных чисел
Заполнить файл f целыми числами, полученными с генератора случайных чисел. Вычислить...
Заполнить файл f натуральными числами, полученными с генератора случайных чисел
Заполнить файл f натуральными числами, полученными с генератора случайных чисел. Найти...
3
Var
День,Месяц:byte;
Begin
Write('№ дня = ');ReadLn(День);
Var C:=365-День;
Write('№ месяца = ');ReadLn(Месяц);
Case Месяц of
2:C:=C-31;
3:C:=C-59;
4:C:=C-90;
5:C:=C-120;
6:C:=C-151;
7:C:=C-181;
8:C:=C-212;
9:C:=C-243;
10:C:=C-273;
11:C:=C-304;
12:C:=C-334
End;
if (C mod 100>10)and(C mod 100<20) then Write('До нового года осталось ',C,' дней')
else
Case C mod 10 of
1:Write('До нового года остался ',C,' день');
2..4:Write('До нового года осталось ',C,' дня');
0,5..9:Write('До нового года осталось ',C,' дней')
End
End
Объяснение:
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-9,9); a.Println;
a:=a.Where(x->x<>0).ToArray; a.Println
end.
Пример
n= 20
-1 0 8 5 8 -6 -8 9 8 -8 3 2 0 6 3 2 0 -1 -5 3
-1 8 5 8 -6 -8 9 8 -8 3 2 6 3 2 -1 -5 3