• B правой части каждого сообщения есть стрелки и . Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок в правой части сообщения.

  • 🔥 Бесплатный курс от Академии Кодебай: «Анализ защищенности веб-приложений»

    🛡 Научитесь находить и использовать уязвимости веб-приложений.
    🧠 Изучите SQLi, XSS, CSRF, IDOR и другие типовые атаки на практике.
    🧪 Погрузитесь в реальные лаборатории и взломайте свой первый сайт!
    🚀 Подходит новичкам — никаких сложных предварительных знаний не требуется.

    Доступ открыт прямо сейчас Записаться бесплатно

помогите пожалуйста решить две задачки по программированию (pascal)

  • Автор темы Автор темы Guest
  • Дата начала Дата начала
G

Guest

Процедуры и функции (решить задачу с помощью процедуры и функции)
Составить программу, определяющую, в каком из данных двух чисел больше цифр.
 
uses crt;
var i,sum1,sum2,err:integer;
x,y:string;

BEGIN
write('Введите первое число :');
readln(x);
write('Введите второе число :');
readln(y);

sum1:=0;
sum2:=0;

for i:=1 to Length(x)do
if (x < #48)or(x > #57)
then continue
else sum1:=sum1+1;

for i:=1 to Length(y)do
if (y < #48)or(y > #57)
then continue
else sum2:=sum2+1;

if sum1 = sum2
then writeln('Цифр равное количество')
else if sum1 > sum2
then writeln('В первом числе цифр больше')
else writeln('Во втором числе цифр больше');


END.
 
var x1, x2: integer;

function sum(x1: integer): integer;
begin
sum:=length(inttostr(x1));
end;

begin

read(x1, x2);

if sum(x1)>sum(x2) then
writeln('У первого')
else
writeln('У второго');

end.
 
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab