Var
n, a, b, c, d, s, p: integer;
begin
Write('Введите натуральное четырехзначное число: ');
Readln(n);
if (n > 9999) or (n < 1000) then Writeln('Число должно быть четырехзначным')
else begin
a := n div 1000; d := n mod 10; n := (n div 10) mod 100;
b := n div 10; c := n mod 10;
s := a + b + c + d;
p := a * b * c * d;
Writeln('Сумма цифр равна ', s, ', а их произведение равно ', p)
end
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное четырехзначное число: 2345
Сумма цифр равна 14, а их произведение равно 120
Начало программы
Ввод X, Y, Z
Присвоить А:=0
Если ХЕсли Y>Z тогда А:=А+Y, иначе А:=А+Z
Если X<(Y/Z) тогда А:=А+Х, иначе А:=А+Y/Z
Вывод А
Конец программы
Не получишь. Во-первых, не знаю, законно или нет, но у тебя нет логического выражения в условной конструкции(if).
Во-вторых, опять же, не знаю, если ли в твоем языке функция swap(), которое меняет содержимое, но я бы сделал так:
temp := x[i]; //объяви сначала дополнительную переменную
x[i] = y[i];
y[i] = temp;
Ибо, если судить по твоему коду, ты присваиваешь переменной X значение переменной Y(получается, что теперь X = Y), а затем присваиваешь переменной Y значение переменной X(хотя они уже равны).
В кабинете Информатики нельзя бегать, потому что можно нанести вред компьютеру. Так же нельзя с мокрыми руками пользоваться компьютером. <span>Нельзя пользоваться компьютером без разрешении учителя.</span> В случае ошибки, немедленно сообщить об этом. В конце урока надо встать аккуратно с компьютера и медленно выйти из кабинета.
CD это отражения ямок и горок которые кодируются 1 и 0| а различия в cd инфрокрасный лазер а в dvd красный лазер и в dvd меньшая длинна волны ёмкость DVD превосходит обычный cd