4 года назад

Напишите пожалуйста программу на языке Pascal...

Вводится целое число, находится факториал этого числа, Нужно определить сколькими нулями оканчивается факториал

Ирина Хахалева (Гость) Программирование
3

Программирование: Напишите пожалуйста программу на языке Pascal...

2 года назад Напишите, пожалуйста программу! Pascal

Нужно написать программу либо по нахождению детерминанта, либо сделать калькулятор, всё на языке Pascal. Можете скинуть прогу вниз, очень надо! Спасибо!

Ксения Трещёва (Гость) 2 ответа
3
2 года назад Помогите пожалуйста составить блок-схемы к программам в Pascal.

Помогите пожалуйста составить блок-схемы к программам в Pascal.
3 задачи:
1) Program Lab7;
uses CRT; {подключаем стандартный модуль CRT }
{Pаздел описаний}
var A,B,R,R2,C,H,D,K,S1,S2,S3,S4,S5,S6,S7:real;{исходные данные}
S:real;{конечный результат}
{Oсновной блок}
Begin
CLRSCR; {процедура очистки экрана из модуля CRT }
writeln;
writeln('vvedi storony pryamougolnika');
readln(A,B); {ввод исходных данных с предварительным сообщением}
S1:=sqrt(A*B);
writeln('vvedi radius');
readln(R);{...

Xvj eegeygey (Гость) Нет ответов
3
2 года назад напишите мне пожалуйста программу

напишите мне пожалуйста программу
Создать каталог из журнал и статей. Выдавать информацию о публикациях, удовлетворяющих тому или иному критерию, например, изданных с 2000 года

Антон Костенко (Гость) 1 ответ
3
Ответы (2)
пастор Александр Лапоченко (Гость) 4 года назад
3

Напиши это на Яве https://www.youtube.com/user/Gomer8Developer здесь есть видео как это сделать

Пожаловаться
Александр Овечкин (Гость) 4 года назад
3

Не порите отсебятину, пишите задание слово в слово. В данной задаче не требуется считать факториал числа, достаточно подсчитать количество нулей в конце факториала. Это можно сделать так:

var
    n, t, r: integer;
begin
    write('число? ');
    readln(n);
    while n > 0 do begin
        t := n;
        while t mod 5 = 0 do begin
            inc(r);
            t := t div 5;
        end;
        dec(n);
    end;
    writeln('кол-во нулей в конце ', n, '! равно ', r);
end.

Пожаловаться
Напишите пожалуйста программу на языке Pascal... (Программирование) - вопросы и ответы на все случаи жизни - справочник Программирование FOR-ASK.RU