1. Составь программу для составления словосочетаний из следующих Задания Слов. Nur, alty, Saule, Sultan, su, bakan, ak 2. Какую программу нужно составить, чтобы название страны и сто- лицы было выведено 4 раза подряд? Kazakhstan Kazakhstan Kazakhstan Kazakhstan Nur-Sultan Nur-Sultan Nur-Sultan Nur-Sultan 3. Отобрази на экране следующие фигуры с программы Python. ПАМАГИТИ ПРАШУ
//Блок-схемы в приложении //Pascal ABC.NET v3.0 сборка 1111
//1 Var a,p,s:real; begin readln(a); p:=a*4; s:=a*a; writeln('P=',p); writeln('S=',s); end.
//2 Var a,b:integer; begin read(a,b); if a>b then writeln(b); if a=b then writeln('='); if a<b then writeln(a); end.
{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся. Ваш, Глеб 'I3artle' Косырев}
1 sm('Игорь',18,189).
2 sm('Роман',17,182).
3 sm('Антон',20,191).
4 sm('Виктор',21,185).
5 sm('Николай',16,193).
6 % а) выбрать всех спортсменов выше 184 (включительно), но не выше 190;
7 % ?- findall( Name, (sm(Name, Age, Height), Height >= 184, Height < 190), Xs ).
8 % б) выбрать спортсменов моложе 20 лет, но не моложе 18 (включительно);
9 % ?- findall( Name, (sm(Name, Age, Height), Age < 20, Age >= 18), Xs ).
10 % в) выбрать всех спортсменов с ростом не ниже 186 и не старше 19 лет (включительно).
11 % ?- findall( Name, (sm(Name, Age, Height), Height > 186, Age =< 19), Xs ).
//Pascal ABC.NET v3.0 сборка 1111
//1
Var
a,p,s:real;
begin
readln(a);
p:=a*4;
s:=a*a;
writeln('P=',p);
writeln('S=',s);
end.
//2
Var
a,b:integer;
begin
read(a,b);
if a>b then writeln(b);
if a=b then writeln('=');
if a<b then writeln(a);
end.
{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся.
Ваш, Глеб 'I3artle' Косырев}