Регистрация
lizahatemehoten
15.01.2021 07:19
Информатика
Есть ответ 👍

Даны 3 разные строки символов. определить самую длинную строку и выдать ее длину на экран.паскаль.

215
404
Посмотреть ответы 3

Ответы на вопрос:

shams200108
shams200108
4,6(56 оценок)
Program n1; var s,s1,s2: string; function max(a,b,c: integer): integer; begin max: =0; if (a> b) and (a> c) then max: =a else if (b> c) and (b> a) then max: =b else if (c> a) and (c> b) then max: =c; end; begin readln(s); readln(s1); readln(s2); write(max(length(s),length(s1),length(; end.
savdyut
savdyut
4,4(45 оценок)
Var s1,s2,s3: string; a: integer; begin write('введите первую строку: '); readln(s1); write('введите вторую строку: '); readln(s2); write('введите третью строку: '); readln(s3); a: =s1.length; if a< s2.length then a: =s2.length; if a< s3.length then a: =s3.length; writeln('наибольшая длина: ',a); end.
iDanee
iDanee
4,5(71 оценок)

n1 = int(input("Введите целое число: "))

n2 = 0

 

while n1 > 0:

digit = n1 % 10; # находим остаток - последнюю цифру числа

n1 = n1 // 10; # делим нацело - убираем из числа последнюю цифру

n2 = n2 * 10 # увеличиваем разрядность второго числа

n2 = n2 + digit # добавляем очередную цифру

 

print('"Обратное" ему число:',n2)

Объяснение:

Популярно: Информатика