fkn+antitotal

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

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

var s:string; i,k:integer;
begin
  s:='fdg123F345sdfg48';
  for i:=1 to Length(s) do
    if (s[i]>='5')and (s[i]<='9')then
      k+=1;
  write(k);
  readln();
end.   

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

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

123fdgF34sdf45g
123fdgF34sdfg45
fdg123F34sdfg45

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

У вас есть массив:
▶
?
1
2
3
4

type
myArr = array[1..8] of integer;
var
a: myArr;

-- целочисленный тип из 8 элементов.

Пользователь вводит любые целые числа (после каждого нажимает Enter), до тех пор пока не введет символ решетки #

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

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

var x:string; i,b:integer;
begin
  readln(x);
  for  i:=1 to length(x) do
    if (x[i]>='0')and(x[i]<='9') then
      b+=1
    else
    begin
      write('oshibka');
      break;
    end;
  if b=length(x) then
    write(x);
  readln();
end.                       

задача 8 урок 12.1

Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

задача 7 урок 12.1

Выведите на экран, все четные числа, делящиеся на 3 и на 6 нацело , лежащие в диапазоне от 35 до 117.

var a:integer;
begin
a:=35;
 repeat
   if (a mod 6)=0 then
     writeln(a);
   a:=a+1;
  until a>117;
readln();
end.

задача 6 урок 12.1

Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу (не выводя ничего в ответ).

var a: char;
begin
 repeat
   writeln('vvedite simvol');
   readln(a);
   if a<>'#' then
     writeln('&');
 until a='#';
readln();
end.

задача 5 урок 12.1

Пользователь вводит целое число, если оно больше единицы, то выведите на экран все целые числа от этого числа до единицы (в обратном порядке), которые делятся на 23 без остатка. Иначе (если введённое пользователем число не больше единицы) сообщите об ошибке.

задача 3 урок 12.1

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

var
  a,n: integer;
begin
  a:=55;
  n:=9236;
   repeat
     write(a, ' ');
     a:=a+1;
   until (a>n);
readln;
end.    

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

Вывести на экран все числа от 1 до N с помощью цикла repeat/until.

var
  a,n: integer;
begin
  a:=1;
  writeln('vvedite chislo');
  readln(n);
   repeat
     write(a, ' ');
     a:=a+1;
   until (a>n);
readln;
end.