1. Откройте среду программирования Pascal. 2. Введите программу: program dlina; uses crt; var s: string; t:integer; begin clrscr; writeln (‘Введите произвольное слово’); readln (s); t:=length(s); writeln (‘длина слова равна’, t); readkey; end. 3. Проверьте программу на наличие ошибок и запустите на выполнение. Задание 2. Составить программу, определяющую истинность высказывания "Число n является четным" program chetn; uses crt; var n: integer; a: boolean; begin clrscr; write ('Введите исходное число'); readln (n); a:=n mod 2=0; writeln ('Число ', n, ' является четным - ', a); readkey; end.

Сразу два решения.

Объяснение:

Так как тут можно использовать и case и if, вот вам на выбор.

if then else

program zadacha;

var a,b,kod:real;

begin

 write('Введите значение a: ');readln(a);

 write('Введите значение b: ');readln(b);

 write('Введите код операции (от 1 до 4): ');readln(kod);

 

 if kod=1 then

   kod:=a+b

 else

   if kod=2 then

     kod:=a-b

   else

     if kod=3 then

       kod:=a*b

   else

     kod:=a/b;

 writeln('ответ: ',kod);

end.

case:

program zadacha;

var a,b,kod:integer;

begin

 write('Введите значение a: ');readln(a);

 write('Введите значение b: ');readln(b);

 write('Введите код операции (от 1 до 4): ');readln(kod);

 

 case kod of

   1:kod:=a+b;

   2:kod:=a-b;

   3:kod:=a*b;

   4:kod:=a div b;

 end;

 writeln('ответ: ',kod);

end.

#include <iostream>

using namespace std;

int main() {

   int n, a, b, c, s = 0;

   cin >> a >> b >> c >> n;

   

   for (int na = 0; na <= n / a; na++) {

       for (int nb = 0; nb <= (n - a * na) / b; nb++) {

           int kk = n - na * a - nb * b;

           if (kk >= 0 and kk % c == 0) s++;        

       }

   }

   cout << s << endl;

   for (int na = 0; na <= n / a; na++) {

       for (int nb = 0; nb <= (n - a * na) / b; nb++) {

           int ll = n - na * a - nb * b;

           if (ll >= 0 and ll % c == 0)

               cout << na << " " << nb << " " << ll / c << endl;

       }

   }

}

Объяснение:

Зашло на