Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Suprunenko2007
02.06.2020 22:01 •
Информатика
Pascal abc. найти количество четверок в числе, используя crt. заранее : )
👇
Увидеть ответ
Ответ:
kutcaki
02.06.2020
Program n1;
uses crt;
var n,m,p,k:integer;
begin
write('введите число: ');
readln(n);
m:=n;
k:=0;
while m<>0 do begin
p:=m mod 10;
if p=4 then k:=k+1;
m:=m div 10;
end;
writeln('кол-во 4: ',k);
end.
4,5
(19 оценок)
Открыть все ответы
Ответ:
дима22819
02.06.2020
Var a: byte; b:integer;
Begin
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');
Readln(a);
Case a of
1: writeln(b,' янавря');
2: writeln(b,' февраля');
3: writeln(b,' марта ');
4: writeln(b,' апреля ');
5: writeln(b,' мая');
6: writeln(b,' июня ');
7: writeln(b,' июля');
8: writeln(b,' августа');
9: writeln(b,' сентября');
10: writeln(b,' октября');
11: writeln(b,' ноября');
12: writeln(b,' декабря');
else writeln('Месяца №', a,'нет');
end;
end.
4,4
(67 оценок)
Ответ:
daysannas
02.06.2020
Вот на С++:
#include <iostream>
#include <sstream>
#include <fstream>
#include <string>
#include <vector>
#include <deque>
#include <queue>
#include <stack>
#include <set>
#include <map>
#include <algorithm>
#include <functional>
#include <cstring>
#include <utility>
#include <bitset>
#include <cmath>
#include <cstdlib>
#include <ctime>
#include <cstdio>
#include <climits>typedef unsigned long long ulol;
typedef long double ld;
typedef long long lol;
typedef long int li;#define mp make_pair
#define F first
#define S second
#define sqr(a) ( (a) * (a) )
#define pb push_back
#define INF 999999999
#define ret(a) cout << endl; system("pause"); return(a)
//#define ret(a) return(a)using namespace std;int main()
{
ld x;
cin >> x;
x = ( 8 / sqrt( x ) ) + sqrt(x);
cout << x;
ret(0);
}
4,7
(85 оценок)
Это интересно:
К
Компьютеры-и-электроника
14.05.2023
Как создать свою видеоигру с нуля: от идеи до релиза...
31.05.2021
Как перестать бояться быть счастливым: 7 советов для изменения мышления...
16.02.2023
Как расширить границы разума: несколько простых способов...
С
Стиль-и-уход-за-собой
18.02.2021
Как избавиться от темных кругов под глазами: советы от экспертов...
С
Стиль-и-уход-за-собой
26.01.2020
Как отчистить сандалии Rainbow...
С
Стиль-и-уход-за-собой
28.02.2021
Как завивать волосы в кудри: простые шаги и полезные советы...
Д
Дом-и-сад
08.06.2022
Как почистить LEGO: простые способы, которые помогут сохранить блестящую внешность игрушек...
Т
Транспорт
18.02.2022
Как диагностировать автомобильную помпу...
Х
Хобби-и-рукоделие
09.09.2020
Как использовать объективы с байонетом M42 на цифровых фотоаппаратах Canon EOS...
П
Питомцы-и-животные
16.12.2021
Как завоевать доверие собаки: советы для новичков...
Новые ответы от MOGZ: Информатика
shopiakprod
19.09.2021
Запишите на языке паскаль программу, реализующую алгоритм работы кассира, покупателю сдачу (s) наименьшим возможным количеством банкнот по 500 (k500), 100(k100), 50(k50)...
Mojo228
31.07.2022
Объект (например, фрагмент текста или рисунок).попадает в буфер обмена после выполнения команд:...
ONO2017
18.07.2020
Известно, что файлы в операционной системе windows размещены в иерархической . чем является объект, названный «имя_3»? 1)файл 2)документ 3)папка 4)приложение...
unicorn337228
25.12.2022
Известно, что в книге 200 страниц на каждой странице 70 строк в каждой строке 50 символов . какой информационный объём в байтах займёт книга на жёстком диске? ...
kjigun
21.01.2023
Умоляю , решение должно быть с и программой; нужно для аттестации 1 дана строка, содержащая текст, заканчивающийся точкой. вывести на экран слова, содержащие три буквы....
Rus9922
15.05.2023
Информатика как найти i, i, k, n, t, v...
Haranmeu
30.07.2022
Информатика 8 класс - кодирование цветов , хотя бы то, что знаете...
Diiankkk
25.11.2020
Как можно создать модель в программе скетчап...
oksanavolkova3
26.04.2021
Повтори 4 раз сместиться на (3, 0) сместиться на (-2, -1) сместиться на (1, 0) конец какую команду надо выполнить чертёжнику, чтобы вернуться в исходную точку, из которой...
HsbHbaj
27.11.2020
Самое главное что бы было 5,6,7,8...
MOGZ ответил
В якій масі заліза міститься скільки атомів скільки молекул 0.8 соль...
Відомо, що замість певного об єму кисню, який споживається в процесі...
Ставлю Задача по химии #313. ...
на параллельных прямых а и б взяты точки так что а и с принадлежит...
Бейімбет Майлин кім? Шығармашылығы туралы не білесіз? Оқы. Қазақ...
там вконце горенее дров и скисание молока,не влезло просто) ...
Чем земли северного Причерноморья привлекали итальянских купцов?...
Выберите мнение одного из историков. План сочинения-рассуждения:...
население 15 миллионов, среди них 16 до 18 лет- 1,9 миллионов, 1,6...
Даны длины трех отрезков. Выберите варианты, для которых возможно...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
uses crt;
var n,m,p,k:integer;
begin
write('введите число: ');
readln(n);
m:=n;
k:=0;
while m<>0 do begin
p:=m mod 10;
if p=4 then k:=k+1;
m:=m div 10;
end;
writeln('кол-во 4: ',k);
end.