Напишите программу на языке паскаль: дано число. если оно кратно 3, то увеличить его на 6, в противном случае обнулить.

uses crt;

var x: integer; beginwrite('число = '); readln(x); if x mod 3 =0 then x: =x+6 else x: =0; writeln(x);

readkey;

end.

program blunt;

var x: word;

begin

write('введите целое число = ');

readln(x);

if( 0 == (x mod 3) ) then x: =x+6; else x: =0;

writeln('результат = ',x);

end.

Summa1. анализ 1. переменные s, i с целыми числовыми значениями. 2. начало кода 3. переменной s присваивается значение 0. 4. цикл. условие: при значении i от 1 до 5. действие: присвоить переменной s значение, увеличенное на i. 5. вывод значения переменной s. 6. конец кода summa2. анализ 1. переменные s, i с целыми числовыми значениями. 2. начало кода 3. переменной s присваивается значение 0, переменной i - значение 1. 4. цикл. условие: до тех пор, пока i меньше или равно 5. действие: увеличить значение переменной s на і, значение переменной і - на 1. 5. вывод значения переменной s. 6. конец кода summa3. анализ 1. переменные s, i с целыми числовыми значениями. 2. начало кода 3. переменной s присваивается значение 0, переменной i - значение 1. 4. цикл. условие: пока i не станет больше 5. действие: увеличить значение переменной s на і, значение і - на 1. 5. вывод значения переменной s. 6. конец кода

Первая программа. program d_and_e; var     a,b,sum_d,sum_e: integer; begin   writeln('введите первое число: ');   readln(a);   writeln('введите второеое число: ');   readln(b);   sum_d: =(a div 10) + (b div 10);   sum_e: =(a mod 10) + (b mod 10);   writeln('сумма десятков чисел: ', sum_d);   writeln('сумма единиц чисел: ', sum_e); end. вторая программа. program d_and_e; var     a,b,mult_d1_e2,mult_e1_d2: integer; begin   writeln('введите первое число: ');   readln(a);   writeln('введите второе число: ');   readln(b);   mult_d1_e2: =(a div 10) * (b mod 10);   mult_e1_d2: =(a mod 10) * (b div 10);   writeln('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2);   writeln('произведение единиц 1-го и десятков 2-го числа: ', mult_e1_d2); end. третья программа. program d_and_e; var     a,b,mult_d1_e2,sum_e1_d2: integer; begin   writeln('введите первое число: ');   readln(a);   writeln('введите второе число: ');   readln(b);   mult_d1_e2: =(a div 10) * (b mod 10);   sum_e1_d2: =(a mod 10) + (b div 10);   writeln('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2);   writeln('сумма единиц 1-го и десятков 2-го числа: ', sum_e1_d2); end.