fkn+antitotal

Урок 13.2

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида
(c чередованием плюсов и минусов в строках, используйте циклы while):

Урок 13.2

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (используйте циклы repeat):

В правом верхнем углу выбираем пункт Essentials ("Основные элементы"), и затем выбираем Сброс "Основные элементы"

задача 2 урок 19

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

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

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

задача 1 урок 19

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

Решение

program example_1_lesson19;
var
  f1: text;
  filename, s: string;
begin
  filename :='C:\Users\XE\Documents\Pascal\input.txt';
  assign(f1, filename);
  reset(f1);

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

Консоль

задача 10 урок 18

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

Задача 1 урок 10.1

Выведите на экран, все четные числа от 35 до 64.

program zadacha1;
var i :integer;
begin
 for i:=35 to 64 do        
   if (i mod 2) = 0 then
    write(i, ' ');
   readln();
end.  

Задача 13 урок 9

У вас есть три числа (три переменные) найдите их медиану (link is external)

Задача 12 урок 9

Изучите код:

var s, t:integer;
    f, b:boolean;
begin
  f := true;
  b := false;
 
  if (f=true) then
    t:=1
  else
    t:=2;
 
  if (b=false) then
    s:=3
  else
    s:=4;
end. 

-- блоки условий можно переписать более кратко, без использования сравнения = true или = false, с сохранением той же логики работы программы.

Подсказки:

Задача 11 урок 9

Есть программа: