Сколько различных сообщений длиной 4 знака можно записать с алфавита (А, Б, В, Г, Е, Д, Я} если слова должны начинаться с согласной буквы и заканчиваться на гласную?
1. a; c 2. write(); writeln(). Пример: write(c) /поясняю: ln добавляется для перехода на следующую строку при выводе/ 3. Ошибка - в строке "writeln(введите значения переменных m и n);" не указана переменная k. Так же не нужны кавычки в выводе, а при вводе необходимы. Исправление: program prim_a; var m, n, k: integer;
begin writeln('введите значения переменных m, n и k'); read(m,n, k); writeln((m+n+k)*5); end. 4. a) program plowad; var a, h: real;
begin writeln('Введите основание треугольника и высоту'); readln(a, h); writeln('Площадь треугольника равна ', a*h/2); end. 5. program proizvedenie; var a, b: integer;
begin writeln('Введите двузначное число'); readln(a); b:=a mod 10; a:=a div 10; writeln('Произведение цифр двузначного числа равно ', a*b); end.
Var N,B,k:integer; Begin Write('N = ');ReadLn(N); Write('Искомые числа:'); For N:= 1 to N do Begin B:=N; k:=1; // перед каждой проверкой k:=1 // и если число не делится на любую из своих цифр, то k:=0 While B > 0 do Begin if B mod 10 = 0 then k:=0 // B mod 10 - это остаток от деления B на 10 // то есть, например, 123 mod 10 = 3 else if N mod (B mod 10) > 0 then k:=0; B:=B div 10 // целая часть от деления B на 10 // 123 div 10 = 12 End; if k = 1 then Write(' ',N) End; End.
ответ первый- Где я а другие не знаю