1.Напишите команды, которые выполняют следующие действия: а) вывод переменной с ;б) описать переменные а и s целого типа; в) переменной r присваивает разность чисел p и q.
2.Что будет на экране после выполнения следующих команд: а) Writeln(9); Write(5); Writeln(3); б) Writeln(4*2); Write('5-3'); Writeln('5+1=',5+1);
3.Укажите различия циклов While и Repeat
4.Дана строка. Определить сколько пробелов в этой строке
6.Дано четырехзначное число. Вывести на экран сумму цифр этого числа
7.Найти количество цифр целого числа N
8.Напишите команды, которые выполняют следующие действия: а) ввод переменной d б) описать переменные m и n вещественного типа. в) переменной s присвоить разность чисел p и q
9.Что будет на экране после выполнения следующих команд: Writeln(5-3); Write('5+3'); Writeln('5*4=',5*4);
10.Когда нельзя применять цикл for
11.Дана строка. Определить сколько букв в этой строке
12.Дано трехзначное число. Вывести на экран все его цифры столбиком
13. Найти количество цифр целого числа N(+блок-схема)

1а) writeln(c); или write(c);б) a, s: integer; или a, s: byte; или a, s: word;в) r := p - q;2а) на одной строке будет выведено число 9, а на другой числа 5 и 3б) на одной строке будет выведено число 8, на другой выведется 5-3 и 5+1=63While - цикл с предусловием (условие идет до тела цикла), поэтому он может вообще не выполнятся. Repeat - цикл с постусловием (условие идет уже после тела цикла), поэтому тело этого цикла всегда выполняется минимум 1 раз.4varst1: string;i, k: byte;beginwrite('Введите строку: ');readln(st1);for i:=1 to Length(st1) doif st1[i]= ' ' then inc(k);writeln(k);end.6vara, sum: integer;beginwrite('Введите число: ');readln(a);sum := 0;while a > 0 do  begin  sum := sum + (a mod 10);  a := a div 10;  end;  writeln('Сумма цифр = ', sum:5);end.7varN, k: integer;beginwrite('Введите число: ');readln(N);k:=0;while N > 0 do  begin  inc(k);  N := N div 10;  end;  writeln('Количество цифр = ', k:5);end.8а) read(d); или readln(d);б) m, n: real; или m, n: double;в) s := p - q;9На одной строке будет выведено 2, на другой 5+3 и 5*4=2010Ну, думаю, когда заранее неизвестно число итераций (повторений) цикла. Например While eof(f) ("пока не конец файла", тут чисто физически нельзя использовать цикл for).11 Length(st1), если с выводом, то Writeln('Количество символов: ', Length(st1));12varN: integer;beginwrite('Введите число: ');readln(N);writeln(N div 100);writeln(N div 10 mod 10);writeln(N mod 10);end.13Код идентичен заданию 7, блок-схема в приложении