новая папка / 5
.docxМинистерство науки и высшего образования Российской Федерации Федеральное государственное автономное образовательное учреждение высшего образования
«Пермский национальный исследовательский политехнический университет»
Электротехнический факультет Кафедра «Конструирование и технологии в электротехнике»
Отчет по практической работе №5
По дисциплине «Информатика в приложении к отрасли»
Тематика практического занятия: «ПРОГРАММИРОВАНИЕ АЛГОРИТМОВ С ИСПОЛЬЗОВАНИЕМ ВЛОЖЕННЫХ ЦИКЛОВ »
Вариант №8
Выполнил:
Студент гр. ЭЭ-20-3б Киряков Даниил Андреевич (Ф.И.О. студента) _________________________ (подпись студента)
Проверил: Доцент каф. «КТЭ» (должность руководителя, кафедра)
Казаков Алексей Владимирович (Ф.И.О. преподавателя)
__________ (оценка) ________________________ (подпись преподавателя)
__________ (дата)
Пермь 2022
program FirstTask;
uses crt;
var i,d: integer;
f:boolean;
Begin
i:=100;
f:=false;
while(i<=200)and not f do
begin
d:=1;
while(d<=31)and not f do
if sqr(i div 100)+sqr(i div 100 mod 10)+sqr(i mod 10)+d=i then
begin
f:=true;
write('Возраст=',i);
end
else inc(d);
if not f then inc(i);
end;
end.
Результат:
program SecondTask;
Var a,b,i,x,s,t:integer;
Begin
write('A = ');readln(a);
write('B = ');readln(b);
write('X = ');readln(x);
For i:=a to b do
Begin
s:=0;t:=i;
While t>0 do
Begin
s:=s+t mod 10;
t:=t div 10;
End;
if x mod s = 0 then write(i,' ');
End;
readln;
End.
Результат:
program ThirdTask;
uses crt;
var i,s,a,b,c,ch,o:integer;
begin
o:=0;
writeln('Введите число:' );
readln(ch);
for i:=100 to 999 do
begin
a:=i div 100;
b:=(i div 10) mod 10;
c:=i mod 10;
if ((a+b+c) = ch) then
begin
inc(o);
writeln(i);
end;
end;
if o = 0 then writeln('error !');
readln;
end.
Результат: