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

Решите в паскале 1)дано 10 натуральных чисел , посчитайте сколько среди их чётных 2)дано 2 числа , определить сколько в каждом из них цифр 5 .

👇
Ответ:
Program azazaza;
var a,n,i:integer;
begin
   for i:=1 to 10 do begin
   read(a);
   if a mod 2 = 0 then
      n:=n+1;
   end;
   writeln('чётных=',n);
end.
Это только 1-е задание
4,5(40 оценок)
Открыть все ответы
Ответ:
Enot3106
Enot3106
01.05.2023

7

2

мотор

торт

Торт

Объяснение:

writeln(length(s)) - вывод количества символов в строке

writeln(pos('о',s)) - вывод первой позиции символа 'о' в строке s

delete(s,3,2) - удаление в строке s 2-х символов начиная с символа под номером 3

writeln(s) - вывод получившейся строки s

t:=copy(s, 3, 3) - копирование в строку t 3-х символов строки s начиная с 3 символа (тор)

insert ('т',t,4) - вставка символа 'т' в строку t на позицию 4

writeln (t) - вывод получившейся строки t

t[1]:=UpCase(t[1]) - замена первого символа строки t на заглавный

writeln (t) - вывод получившейся строки t

4,5(64 оценок)
Ответ:
dmutallapova
dmutallapova
01.05.2023

7

2

мотор

Торт

Объяснение:

Writeln(length(s)) - вывод количества символов в строке

Writeln(pos('о',s)) - вывод первой позиции символа 'о' в строке s

Delete(s,3,2) - удаление в строке s 2-х символов начиная с символа под номером 3

Writeln(s) - вывод получившейся строки s

T:=copy(s, 3, 3) - копирование в строку t 3-х символов строки s начиная с 3 символа (тор)

Insert ('т',t,4) - вставка символа 'т' в строку t на позицию 4

Writeln (t) - вывод получившейся строки t

T[1]:=UpCase(t[1]) - замена первого символа строки t на заглавный

Writeln (t) - вывод получившейся строки t

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