Задача 3 Урок 18

Задача 3 Урок 18

Имеется текстовый файл в котором содержится не более 30 строк, в каждой строке не более 30 символов (пробелы тоже считаются символами). Цифры и другие символы перемешаны в каждой строке.
Задание: найдите максимальное число, c учетом того, что числом считаются подряд идущие цифры не только по горизонтали, но и по вертикали.

Примеры:

fsd334rgd
rfg46gdfg
ter5tge56
123gergf

Ответ: 345

Задача 2 Урок 18

Задача 2 Урок 18

У вас есть текстовый файл с информацией об итогах соревнований (каждая строка имеет формат: имя + произвольное число пробелов + балл 1 + произвольное число пробелов + балл 2):

Вася    16     485
Коля    17   555
Юра     18   61
..........

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

Задача 1 Урок 18

Задача 1 Урок 18

Создайте файл в вашей операционной системе и выведите в консоль всё его содержимое.

Var
    f1:text;
    filename, s: string;
begin
  filename := 'C:\Users\Gomynkyl\AppData\Local\Temp\input.txt'; // путь к файлу

  assign(f1, filename);
  reset(f1);

  writeln('========nachalo faila=====');
  while not eof(f1) do
    begin
      readln(f1, s);
      writeln(s);
    end;
  writeLn('========= konez faila =========');

  readln();
end.      

Задача 9 Урок 17

Задача 9 Урок 17

Задана последовательность символов, имеющая следующий вид: p1q1p2q2p3...qn–1pn , где pi — цифра, а qi — знак арифметического действия из набора {+, –, *}. Вычислите значение выражения, предполагая, что действия выполняются согласно правилам арифметики.
Входные данные: На вход программе подается строка указанного вида, состоящая не более чем из 9 чисел, разделенных символами арифметических операций.
Выходные данные: Выведите значение арифметического выражения.
Примеры:

Урок 11 задача 11

Урок 11 задача 11

Вывести на экран все числа от 4 до 100 с шагом 4, т.е.:

4 8 12 16.......100

var check: integer;
begin
check:=0;
while check < 100 do
  begin
  check:=check+4;
  writeln(check);
  end;
  readln();
end.    

Урок 11 задача 10

Урок 11 задача 10

Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Сохраните в переменные первые три отрицательных нечетных числа, сложите их, выведите сумму на экран и завершите цикл.

Урок 11 задача 9

Урок 11 задача 9

Пользователь вводит последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.
Примечание: в одном витке цикла должен быть только 1 readln()

Урок 11 задача 8

Урок 11 задача 8

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

Pages

Subscribe to fkn+antitotal RSS