М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
katya99ov
katya99ov
07.07.2020 06:50 •  Информатика

Написать программу в паскаль 1) дано n число, верно ли, что сумма его цифр четное число 2) найдите сумму его цифр больше 5 !

👇
Ответ:
Elluy
Elluy
07.07.2020
Первая
var n,a:integer;
begin
a:=0;
WriteLn(n);
while n>0 do
begin
a:=a + (n mod 10);
n:=n div 10;
end;
end.

Вторая
var n,a:integer;
begin
a:=0;
WriteLn(n);
while n>0 do
begin
if n mod 10>5 then
begin
a:=a + (n mod 10);
end;
n:=n div 10;
end;
end.
4,5(64 оценок)
Открыть все ответы
Ответ:
Sashenka585888
Sashenka585888
07.07.2020

5

Объяснение:

Здесь также же петрушка,что и подобное задание, разница лишь в условии. Здесь перемещение должно происходить тогда, когда последняя цифра а[i] равняется всему числу а[0].массив такой:

8, 3, 16, 24, 35, 18, 4, 72, 8, 99, 44

И смена мест происходит не а0 с аi, а аi c a(i+1), т.е а0 никак не меняется.

Кароче, дашло до 18 при а5 и поменялся массив так:

8, 3, 16, 24, 35, 4, 18, 72, 8, 99, 44

Теперь смотрим: а6 тоже заканчивается на 8, значит трансформируем массив опять:

8, 3, 16, 24, 35, 4, 72, 18, 8, 99, 44

И опять он встал на нашем пути. И так будет до конца массива. И это случится действительно 5 раз.

4,8(94 оценок)
Ответ:
romanenckoalia
romanenckoalia
07.07.2020

Решение, которое перебирает

Большие буквы стоят в таблице кодов подряд, то есть, образуют диапазон, нам требуется проверить лежит ли буква в заданном диапазоне. Для русских букв проверять будем так:

if ('А' <= str[0] && str[0] <= 'Я'), для английских нужно просто поменять буквы на английские.

Пример для русских букв:

Программа выводит заглавные буквы

#include <iostream>

#include <string>

#include <windows.h>

signed main() {

SetConsoleCP(1251);

SetConsoleOutputCP(1251);

std::string str;

getline(std::cin, str);

if ('А' <= str[0] && str[0] <= 'Я')

 std::cout << "Первая буква является заглавной!";

else

 std::cout << "Этот символ не является заглавной буквой!";

return 0;

}

4,6(97 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ