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

с задачкой на языке Python плз

По данным файла "Пенсионеры" определите сколько человек находятся на пенсии. Выход на пенсию считаем прежним: мужчины в 60, женщины в 55. Возраст равный пограничным числам считаем пенсионным.

Файл "Пенсионеры":

ФИО Пол Возраст

Иванов И.А. М 57

Петров А.Д. М 63

Сидарчук Е.Н. Ж 55

Котова П.Л. Ж 59

Кузькин К.Е. М 63

Маслов Н.Г. М 59

Петренко В.Д. М 61

Петренко А.Н. Ж 52

Куварин Г.Д. М 63

Пушкин П.Л. М 62

Пушкина П.Р. Ж 56

Катаева П.М. Ж 48

Морчук В.А. М 58

Кашка Н.Г. Ж 55

Пустын А.В. М 60

Комин П.Р. М 60

Урнов В.С. М 57

👇
Открыть все ответы
Ответ:
vlad041204
vlad041204
06.02.2020
//Это можно стереть. Если в N есть 0 то тогда программа выведет NO.
program z1;
var b,c,d,i,s,l:integer;   
a:string;
begin
read(a);
b:=length(a);
s:=StrToInt(a);
c:=0;
for i:=1 to b do 
for i:=1 to b do 
begin 
d:=StrToInt(a[i]); 
if d=0 then l:=1; 
end;
if l=0 then begin                 
for i:=1 to b do                     
for i:=1 to b do                     
begin                     
d:=StrToInt(a[i]);                     
if (s mod d)=0 then c:=c+1;                     
end;           
end           
else           
write('NO');if (l=0) and (c=b) then write('T');
if (l=0) and (c<>b) then write('P');
end.
4,5(58 оценок)
Ответ:
anosovmaks9
anosovmaks9
06.02.2020
//Это можно стереть. Если в N есть 0 то тогда программа выведет NO.
program z1;
var b,c,d,i,s,l:integer;   
a:string;
begin
read(a);
b:=length(a);
s:=StrToInt(a);
c:=0;
for i:=1 to b do 
for i:=1 to b do 
begin 
d:=StrToInt(a[i]); 
if d=0 then l:=1; 
end;
if l=0 then begin                 
for i:=1 to b do                     
for i:=1 to b do                     
begin                     
d:=StrToInt(a[i]);                     
if (s mod d)=0 then c:=c+1;                     
end;           
end           
else           
write('NO');if (l=0) and (c=b) then write('T');
if (l=0) and (c<>b) then write('P');
end.
4,6(95 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ