123, 132, 213, 231, 321, 312,
723, 732, 273, 237, 327, 372,
173, 137, 713, 731, 371, 317
127, 172, 217, 271, 721, 712
итого 24 числа
// PascalABC.NET 3.0, сборка 1073
var
day,nwords:integer;
begin
day:=1; nwords:=4;
while nwords<50 do begin Inc(day); nwords:=nwords+4 end;
Writeln('50 слов будет выучено на ',day,'-й день')
end.
<em><u>Тестовое решение:</u></em>
50 слов будет выучено на 13-й день
Program Uravnenie;
var
x, y: real;
begin
write('Введите значение х: ');
readln(x);
if x > 0
then y := sqrt(x)
else y := sqr(x) + 1;
writeln('y=', y);
end.
Program lol;
var i:integer;
sum,kv:real;
begin
for i := a to b do
begin
kv = i*i;
sum:=sum+kv;
kv:=0;
end;
end.
Было тепло на солнышке цветочек расцветал и радовался,солнышко зашло и цветок не расцветал и не сильно радовался,пришли тучи и цветочек не радовался,
пошёл дождь цветочек сильно расстроился.
у меня за это было 5
подсолнуху было скучно и он был немного расстроен,ему было весело и он рассцветал от радости,не светило солнце и подсолнух начал засыхать,из-за того что не было солнца подсолнух завял