Задание 1. Создайте файл целых чисел F. Числа считываются с клавиатуры. Признаком конца
10-11 класс
|
ввода является число 9999.
var
a: integer;
begin
while (true) do
begin
readln(a);
if (a = 9999) then
break
else
System.IO.File.AppendAllText('F.txt', IntToStr(a) + System.Environment.NewLine);
end;
end.
Эм... Для второй задачи с клавы считывать?
да можно и клавиатуры
короче как удобней
Другие вопросы из категории
z:=1;
repeat z:=z+2 until z=10;
1) 9
2) 11
3) 10
4) 1
5) ни один из вышеперечисленных ответов не верен, мой ответ:
И в целом объясните) как то меня ввела в тупик эта задача)
a. Мин
b. Макс
c. Сумм
d. Если
e. Не
Читайте также
Что нужно изменить в программе, чтобы выполнялось условие задачи.
Program exapmle2;
var x,y,k:integer;
begin
writeln('Эта программа определяет, число соседств чисел с одинаковыми знаками');
write('Введите число:');
read(x);
y:=x;
k:=0;
while y<>0 do
begin
if x*y<0 then inc(k);
if x*y>0 then inc(k);
y:=x;
read(y);
end;
writeln(' Число соседств ',k);
writeln('нажмите Enter для завершения работы программы');
readln;
end.
нечетные числа. Порядок следования четных чисел сохранить.Решите пожалуйста !
256. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности и сумму положительных чётных чисел, не превосходящих 256.
интервала. № 2. Имеется типизированный файл с числами. Изменить все его элементы, порядковый номер которых кратен трем. Новые значения вводятся с клавиатуры. Размер существующего файла неизвестен.
B<=100).
Выходнфе данные: вывести сумму всех целых чисел от А до В включительно.
Можно, пожалуйста, с объяснением.