Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
0 / 0 / 1
Регистрация: 15.01.2015
Сообщений: 16
1

Помогите вывести на экран из файла out1.txt числа кратные 20 а из второго все простые числа.

26.04.2012, 00:18. Показов 1409. Ответов 1
Метки нет (Все метки)

Помогите вывести на экран из файла out1.txt числа кратные 20 а из второго все простые числа.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.04.2012, 00:18
Ответы с готовыми решениями:

Вывести на экран монитора все простые числа до заданного числа М
1. Простые числа до М. (40 баллов) Вывести на экран монитора все простые числа до заданного числа...

Файлы: Вывести на экран все числа первого файла, а рядом с ним элементы второго с этим номером
Файлы: Даны два файла, причем первый F – целочисленный, а второй G- символьный. Вывести на экран...

Получить все двузначные числа, кратные 3, определив функцию, позволяющую распознавать простые числа.
Напишите пожалуйста решение!СПАСИБО! Получить все двузначные числа, кратные 3, определив функцию,...

Вывести на экран все кратные числа заданным
Ребята помогите программу через процедуру записать Даны натуральные числа А и В. Вывести на экран...

1
128 / 109 / 103
Регистрация: 16.05.2011
Сообщений: 340
26.04.2012, 02:43 2
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var
f1,f2:text;
x:integer;
begin
assign(f1,'out1.txt');
reset(f1);
while not eof(f1) do
begin
read(f1,x);
if x mod 20=0 then
write(x:4);
end;
close(f1);
writeln;
assign(f2,'out2.txt');
reset(f2);
while not eof(f2) do
begin
read(f2,x);
if not((x mod 2=0)or(x mod 3=0)or(x mod 5=0)or(x mod 7=0))or (x=3)or(x=2)or(x=5)or(x=7)
then
write(x:4);
end;
close(f2);
 
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.04.2012, 02:43

Вывести на экран все числа, кратные 2 и 3 из интервала [25, 145]
Вот 3 задачки, помогите чем можете пожалуйста. 1.Вывести на экран все числа, кратные 2 и 3 из...

Вывести на экран все четырехзначные числа, кратные 1111
вывести на экран все 4х значные числа кратные 1111

Создать текстовый файл output.txt, содержащий все числа файла input.txt, кратные 5, в порядке убывания
Текстовый файл Input.txt содержит целые числа. Написать программу, которая создает текстовый файл...

Прочитать числа из текстового файла .Все числа ,кратные 10,заменить на слово ten при выводе на экран
Прочитать числа из текстового файла .Все числа ,кратные 10,заменить на слово ten при выводе на экран


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.