// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №1 begin var a,b,c:integer; Write('Введите три натуральных числа: '); Read(a,b,c); var s:=a+b+c; var k:=Trunc(sqrt(s)); if k*k=s then Writeln('Сумма чисел - квадрат ',k) else Writeln('Сумма чисел не является квадратом целого') end.
Тестовое решение Введите три натуральных числа: 13 4 8 Сумма чисел - квадрат 5
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №2 begin var a,b,c:integer; Write('Введите три натуральных числа: '); Read(a,b,c); var s:=power(a*b*c,1/3); if s=int(s) then Writeln('Среднее геометрическое - целое число') else Writeln('Среднее геометрическое - нецелое число') end.
Тестовое решение Введите три натуральных числа: 16 8 15 Среднее геометрическое - нецелое число
Const n=7; m=8; Var a:array[1..n,1..m] of integer; i,j,x,y,min:integer; begin for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(21)-10; write(a[i,j]:4); end; writeln; end; min:=a[1,1]; x:=1; y:=1; for i:=1 to n do for j;=1 to m do if a[i,j]<min then begin min:=a[i,j]; x:=i; y:=j; end; writeln ('минимальный элемент=',min,' он находился: ',x,',',y); a[x,y]:=100; for i:=1 to n do begin for j:=1 to n do write (a[i,j]:4); writeln; end; end.
3.Var s:string; i:integer; begin writeln('Введи строку'); readln (s); for i:=1 to length(s) do if (s[i]='Е') or (s[i]='е') then delete(s,i,1); writeln(s); end.
day = input()
weekends = ['суббота', 'воскресение']
if day.lower() in weekends:
print(f'{day} - выходной день')
else:
print(f'{day} - рабочий день')