Переведите математическое выражение для языка программирования Python (на фото) 10. Что появится на экране в результате выполнения программы: y = import math a=102 b=4 a=a-math.sqrt(b) fa>100: b=a+b print(b) a
1. Программа "Анкета": program anketa; var a,b,d:string; c:char; begin writeln('Введите ваши имя и фамилию в именительном падеже: '); readln(a,b); writeln('Введите букву класса: '); readln(c); writeln('Введите ваше хобби: '); readln(d); writeln('Меня зовут ',a,' ',b,';'); writeln('Я учусь в 7 "',c,'" классе гимназии 524;'); writeln('Моё хобби - ',d,';'); writeln('Периметр прямоугольника равен 30'); writeln('Сегодня ярко светит солнце!') end. 2. Программа "Опросы": program oprosy; var a,b,c:integer; d:real; begin writeln('Введите ваши оценки по пятибалльной шкале: '); readln(a,b,c); d:=(a+b+c)/3; writeln('Ваша средняя оценка за тесты - ',d,'.'); end. 3. Программа "Периметр прямоугольника": program perimetr; var a,b,c:integer; begin writeln('Введите стороны прямоугольника: '); readln(a,b); c:=(a+b)*2; writeln('Периметр прямоугольника = ',c,'.'); end.
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println; var flag:=true; var k:=0; var ap:=a[0]; for var i:=1 to a.Length-1 do begin if a[i]>ap then begin if flag then begin k+=1; flag:=false end end else flag:=true; ap:=a[i] end; Writeln('Кол-во участков возрастания: ',k) end.
program anketa;
var a,b,d:string;
c:char;
begin
writeln('Введите ваши имя и фамилию в именительном падеже: ');
readln(a,b);
writeln('Введите букву класса: ');
readln(c);
writeln('Введите ваше хобби: ');
readln(d);
writeln('Меня зовут ',a,' ',b,';');
writeln('Я учусь в 7 "',c,'" классе гимназии 524;');
writeln('Моё хобби - ',d,';');
writeln('Периметр прямоугольника равен 30');
writeln('Сегодня ярко светит солнце!')
end.
2. Программа "Опросы":
program oprosy;
var a,b,c:integer;
d:real;
begin
writeln('Введите ваши оценки по пятибалльной шкале: ');
readln(a,b,c);
d:=(a+b+c)/3;
writeln('Ваша средняя оценка за тесты - ',d,'.');
end.
3. Программа "Периметр прямоугольника":
program perimetr;
var a,b,c:integer;
begin
writeln('Введите стороны прямоугольника: ');
readln(a,b);
c:=(a+b)*2;
writeln('Периметр прямоугольника = ',c,'.');
end.