fkn+antitotal

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

Решите предыдущую задачу:

Пользователь вводит в консоль строки вида (имя + произвольное число пробелов + балл):

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

Пользователь вводит в консоль строки вида (имя + произвольное число пробелов + балл):

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

Пользователь вводит в консоль строку вида:

	
Имя         123

-- т.е. слева имя и через произвольное количество пробелов число баллов. Разберите эту строку получив имя пользователя как значение в переменной типа string и число баллов в перееменной типа integer;

Решение:

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

Пользователь вводит произвольную строку, посчитайте количество чисел в ней - тех, что больше 125. Например, в строке:

123ret34#2145esrt5

такое число только одно и это:

	
2145

(сначала выделите эти числа из строки и запишите их в массив (of integer), а затем уже посчитайте число тех, что больше 125
)

Решение:

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

Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней, численное значение которых больше либо равно 5.

Решение:

program u18z03;
var s:string;
  i,count:integer;
begin
  writeln('Vvedite stroku');
  readln(s);
  count:=0;
  for i:=1 to length(s) do
  begin
    if(s[i]>='5')and(s[i]<='9') then
      count:=count+1;
  end;
  writeln(count);
  readln();
end. 

Консоль:

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

Есть строка, в которой, среди прочих символов содержатся 3 числа, выделите эти в массив.
Проверьте работу программы на строках:

123fdgF34sdf45g
123fdgF34sdfg45
fdg123F34sdfg45

Решение:

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

Пользователь вводит строку, проверьте является ли она числом, если да, то выведите в ответ это число, иначе сообщите об ошибке.

Решение:

program u18z01;
var s:string;
  n,Code:integer;
begin
  writeln('Vvedite stroku');
  readln(s);
  Val(s,n,Code);
  if Code = 0 then
    writeln(n)
  else
    writeln('Error');
  readln();
end.

Консоль:

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

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:

С использованием логической операции and.
С вложенными блоками (без and, все опараторы if должны быть в полной форме).
(Если не получается - см. разбор решения(link is external))
Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.
(Если не получается - см. разбор решения(link is external))

1)

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

Пользователь вводит два числа, найдите из них максимальное

var a,b:integer;
begin
  writeln('vvedite znachenia:');
  readln(a, b);
  if (a > b) then
    writeln('a max')
  else
    writeln('b max');
readln();
end. 

Вывод консоли:
'a max' or 'b max'

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

Даны три целых числа: A, B, C. Проверить истинность высказывания: « Число A и число B больше 17, а C > 7». -- выведите "да", если истинно и "нет" если ложно.

var a,b,c:integer;
begin
  writeln('vvedite znachenia:');
  readln(a, b, c);
  if (a > 17) AND (b > 17) AND (c>7) then
    writeln('Da')
  else
    writeln('Net');
readln();
end.

Вывод консоли:

Da or Net