Язык программирования Pascal ABC
var n,k,i,j,d,c:integer;
label 1,2;
begin
1:writeln('Количество месяцев в календаре планеты Мульти:');
readln(n);
if (n>109)or(n<1) then
begin
writeln('Ошибка! Количество месяцев должно быть меньше или равно 109. Повторите ввод.');
goto 1;
end;
2:writeln('Номер дня на который приходится первое число первого месяца нового года:');
readln(k);
if (k>7)or(k<1) then
begin
writeln('Ошибка! Номер дня должен быть в диапозоне от 1 до 7. Повторите ввод.');
goto 2;
end;
d:=k;
for i:=1 to n do
begin
for j:=1+(k-1) to 30 do
begin
if (d=5)and(j=13) then c:=c+1;
d:=d+1;
if d>7 then d:=1;
end;
k:=1;
end;
writeln('Количество несчастливых дней в этом году: ',c);
end.
19456 байт =19 килобайт, 1кбайт=1024байт, т.е нужно 19456 разделить на 1024, 19456/1024=19
var
x,y:integer;
z:real;
begin
writeln('Введите значение x: ');
readln(x);
writeln('Введите значение y: ');
readln(y);
z:=x+y/x+16-y*x-24/17+x;
writeln('z = ',z);
end.
Ну если все с самого начала то: взять нож, ведро, одеться и идти за грибами; зайти в лес; найти гриб; нагнуться; срезать гриб; разогнуться; положить гриб в ведро; повторением действий 3-5 насобирать ведро грибов; пойти домой.
Выдаст произведение следующих чисел
2*5*2*4*2*3*2*2*2*1=3840