Программа на PascalABC
var n:integer;
begin
cls;
writeln ('Введите номер месяца');
readln (n);
if (n=1) or (n=2) or (n=12) then
writeln ('Зима')
else
if (n=3) or (n=4) or (n=5) then
writeln ('Весна')
else
if (n=6) or (n=7) or (n=8) then
writeln ('Лето')
else
writeln ('Осень');
end.
С проверочными данными сами разбирайтесь...
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var a:=ArrFill(ReadInteger('n='),ReadInteger('m=')*60);
Range(1,a.Length-1).ForEach(t->begin a[t]:=a[t-1]+10 end);
a.Println; a.Sum.Println;
end.
Пример:
n= 5
m= 10
600 610 620 630 640
51 ч 40 мин
</span>
1. Программа
Так-как : Пила- 3 буквы забираем получается - п
Роза - 2 буквы забираем получается ро
Грамм
А
2. Команда
Так-как : Корабль- 5 букв забираем, получается - ко
Домбра- забираем д и бра
Панда- забираем букву - а
3. Алгоритм
Так-как: Медаль- забираем - мед и - ь
Горы- забираем - ы
Кит- забираем - к
Мак- забираем - ак
#include <iostream>
int main()
{
float x1, y1, x2, y2, x3, y3, x4, y4;
cin >> x1 >> y1 >> x2 >> y2 >> x3 >> y3;
if (x1 == x2 )
x4 = x3;
else if (x1 == x3)
x4 = x2;
else x4 = x1;
if (y1 == y2 )
y4 = y3;
else if (y1 == y3)
y4 = y2;
else y4 = y1;
cout << x4 << ", " << y4;
return 0;
}