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

Найди истинные высказывания 1.если число записано двумя цифрами,то оно двузначное 2 если число двузначное,то оно записано двумя цифрами 3.если вася старше пети,а петя старше коли,то коля моложе васи 4.если даша учится во втором классе,то даша школьница. 5.если витя школьник,то он учится во втором классе.

👇
Ответ:
agayevaaysu
agayevaaysu
21.10.2021
Здесь по моему мнению везде истина.
4,8(38 оценок)
Открыть все ответы
Ответ:
Som777nik
Som777nik
21.10.2021
//Pascal
var
  S: string;
  i, Count: byte;
begin
write('Введите строку: '); readln(S);
for i := Length(S) downto 1 do
if ((S[i] = '3') or (S[i] = '6') or (S[i] = '9')) then
begin
  Count := Count + 1;
  Delete(s,i,1);
end;
writeln('Количество цифр кратных трем = ', Count);    
writeln('Строка после удаления = ', S);
end.

//FreePascal/Delphi/PascalABC.NET(v3.3.1590)
{$MODE OBJFPC} //В PascalABC.NET можно убрать
uses SysUtils; //В PascalABC.NET можно убрать
var
  S: string;
  i, Count: byte;
begin
write('Введите строку: '); readln(S);
for i := Length(S) downto 1 do
try
if StrToInt(S[i]) mod 3 = 0 then
begin
  Count := Count + 1;
  Delete(s,i,1);
end;
except
end;
writeln('Количество цифр кратных трем = ', Count);   
writeln('Строка после удаления = ', S);
end. 

Напишите, , программу, подсчитывающюю количество цифр во введенной строке кратные 3. после чего удал
4,7(59 оценок)
Ответ:
ikujtdhc
ikujtdhc
21.10.2021
Const   n = 50; // количество чиселvar   k: array [1..n] of integer;   i, j, n1, n2, minr, a, b: integer; begin   writeln(n, ' ', ': d');   a : = random(1000);   b : = random(1000);   minr : = 10000;   for i : = 1 to n do       k[i] : = a + random(b);   for i : = 1 to n do       for j : = 1 to n do           if ((abs(k[i] - k[j])) < minr) and (k[i] < > k[j]) then           begin               minr : = abs(k[i] - k[j]);               n1 : = i;               n2 : = j;           end;   writeln(n1, ' ', n2); end.
4,7(53 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ