Program cnjdknc;
uses crt;
var a,b:real;
begin
readln(a,b);
if a>b then a:=a/5;
writeln(a);
readln;
end.
A=1; b=2
1+2<8 ⇒ истина;
1 шаг цикла.
a=a+1=1+1=2; b=b+2=2+2=4
2+4<8 ⇒ истина;
2 шаг цикла.
a=2+1=3; b=4+2=6
3+6<8 ⇒ ложь
s=3+6=9
Ответ: цикл выполнится 2 раза, переменные: a=3; b=6, s=9
===== PascalABC.NET =====
begin
var a := ArrRandom(12, -2, 15);
Println('Исходный массив');
a.Println;
Println('Отобранные элементы');
a[2:].Println;
Println('После сортировки');
a[2:].Sorted.Println
end.
Ответ:
#include <iostream>
using namespace std;
int sumofdigits(int n);
int main()
{
int a, b, sa, sb;
setlocale(LC_ALL, "Russian");
cout << "Введите 2 натуральных числа: ";
cin >> a >> b;
sa = sumofdigits(a);
sb = sumofdigits(b);
cout << "\nСумма цифр первого числа: " << sa;
cout << "\nСумма цифр второго числа: " << sb;
if (sa > sb)
cout << "\nСумма цифр первого числа больше, чем второго";
else if (sa < sb)
cout << "\nСумма цифр второго числа больше, чем первого";
else if (sa == sb)
cout << "\nСуммы цифр чисел равны";
}
int sumofdigits(int n) {
int sum = 0;
while (n != 0) {
sum += n % 10;
n /= 10;
}
return sum;
}