Ло́го (англ. Logo) — язык программирования высокого уровня, разработанный в 1967 году Уолли Фёрзегом[en], Сеймуром Пейпертом и Синтией Соломон[en] в образовательных целях для обучения детей дошкольного и младшего школьного возраста основным концепциям программирования (рекурсии, расширяемости и пр.).
Скретч - это новая среда программирования, которая позволяет детям создавать собственные анимированные и интерактивные истории, презентации, модели, игры и другие произведения. Этими произведениями можно обмениваться внутри международной среды, которая постепенно формируется в сети Интернет.
Перепеши код на этот:
m, h = map(int, input("-").split('-'))
t, h = map(int, input("*").split('*'))
c, d = map(int, input("/").split('/'))
k, p = map(int, input("+").split('+'))
print(k, '+', p, '=', p+k, end= '\n');
print(m, '-', h,'=', m-h, end='\n');
print(t, '*', h, '=', t*h, end='\n');
print(c, '/', d,'=',c/d)
Сначала вводишь две цифры, к-е нужно вычесть, например: 3-2 (так и пиши при запуске. С тире). Затем так же с умножением, делением, прибавлением. В конце программа тебе вычислит все, что ты ей дал.
procedure SUM(x,y,z:array of integer);
begin
for var i:=0 to z.Length-1 do z[i]:=x[i]+y[i]
end;
procedure ArrPrint(x:array of integer);
// никому она не нужна, на раз попросили...
begin
x.Println(', ');
end;
procedure ArrInit(var x:array of integer;n,from,&to:integer);
// никому она не нужна, на раз попросили...
begin
x:=ArrRandom(n,from,&to)
end;
begin
var a,b,c:array of integer;
ArrInit(a,15,10,30); ArrPrint(a);
ArrInit(b,15,25,60); ArrPrint(b);
SetLength(c,15);
SUM(a,b,c); ArrPrint(c)
end.
Тестовое решение:
23, 15, 13, 23, 22, 24, 20, 27, 29, 19, 29, 28, 30, 10, 24
48, 32, 31, 59, 36, 34, 47, 28, 42, 30, 40, 58, 25, 30, 33
71, 47, 44, 82, 58, 58, 67, 55, 71, 49, 69, 86, 55, 40, 57