3. Данный алгоритм предназначен для того, чтобы определить:
var n,s,c,k:integer; begin s:=0; k:=0; read(n); while n>0 do begin c:=n mod 10; s:=s+c; k:=k+1; n:=n div 10; end; writeln(k); writeln(s); end.
количество цифр числа;
сумму цифр числа;
младшую и старшую цифры числа;
есть ли в записи числа цифра "5";
является ли данное число Для какого начального значения переменной х завершится выполнение оператора цикла:
var x:real; begin read(x); while x<1.3 do x:=sqr(x); writeln(x); end.
0.5
0.9
1.1
5. Установите, что будет выведено на экран в результате выполнения следующей программы:
var n,x:integer; begin n:=2; while n<=10 do n:=n*n; writeln(n) end.
Тут два задания на С. В 3 я не понял что требуется.
#include <stdio.h>
void mission3(n1, n2) {
int one = n1;
int two = n2;
// нечетные
if (one % 2 == 1 && two % 2 == 1) {
printf("One: %d\n", one * 2);
printf("Two: %d\n", two * 2);
// четные
} else if (one % 2 == 0 && two % 2 == 0) {
// определяем какое больше
if (one > two) {
printf("One: %d\n", one / 2);
} else {
printf("Two: %d\n", two / 2);
}
// разные
} else {
// определяем какое нечетное
if (one % 2 == 1) {
printf("One: %d\n", one + 1);
} else {
printf("Two: %d\n", two + 1);
}
}
}
void mission4() {
// перебираем все двухзначные числа
for (int i = 10; i < 99; i++) {
int n1 = i % 10; // получаем остаток от деления
int n2 = i / 10; // получаем целую часть
// если к сумме цифр этого числа прибавить квадрат этой суммы, то получится это число
if (n1 + n2 + ((n1 + n2) * (n1 + n2)) == i) {
printf("%d\n", i);
}
}
}
int main()
{
// проверка 3 задания
mission3(3, 3);
mission3(4, 4);
mission3(4, 5);
// проверка 4 задания
mission4();
return 0;
}
begin
var (a, b) := (ArrRandom, ArrRandom);
Println('Исходные массивы: '); a.Println; b.Println; Println;
var m := a.Zip(b, (x, y)-> max(x, y)).ToArray;
Println('Конечные массивы: ');
a := a.Select((t, i)-> t + m[i]).ToArray; a.Println;
b := b.Select((t, i)-> t + m[i]).ToArray; b.Println;
Println($'{NewLine}Сред. арифм. = {a.Average}');
Println($'Минимальный = {b.Min}{NewLine}Максимальный = {b.Max}');
end.
Пример вывода в приложении.