Ответ:
4
Объяснение:
число меньше 60 и не четное
35 - нечетное
72 - больше 60
81 - нечетное
28 четное и меньше 60
На самом деле паскаль тут притянут за уши.
Пусть в первый день было отпущено х литров, тогда во второй х+250, а за два дня х+х+250 = 2560. И решаем уравнение.
2х+250 = 2560; 2x=2310; x=1155 - было отпущено в первый день.
х+250 = 1155+250 = 1405 было отпущено во второй день.
Проверка: 1155+1405 = 2560.
Так мы решаем задачу вручную.
А с помощью программы что тут сделать можно? только посчитать.
x=(2560-250)/2 - первый день и х+250 - второй.
var
x:real;
begin
x:=(2560-250)/2;
Writeln('1й день ',x, 'л.');
Writeln('2й день ',x+250, 'л.')
end.
Результат
1й день 1155л.
2й день 1405л.
"лиро касс" - "красный помидор"
"дум касс дан" - "большой красный трамвай"
следовательно ,"касс" означает "красный"
"дум касс дан" - "большой красный трамвай"
"ксер дан" - "большой конь"
"дан" означает "большой"
следовательно "трамвай" переводится как "дум"
<span><span>const
n=6;
num=100;
var
arr:array[1..n] of integer;
m,i,j:integer;
begin
Writeln('zapolnite massiv: ');
for i:=1 to n-1 do
Read(arr[i]);
Write('pozitia v massive: ');
Read(m);
if (arr[m] mod 2)=0
then
begin
for i:=n-1 downto m+1 do
arr[i+1]:=arr[i];
arr[m+1]:=num
end
else
begin
for i:=n-1 downto m do
arr[i+1]:=arr[i];
arr[m]:=num
end;
Write(' noviy massiw=: ');
for i:=1 to n do
Write(arr[i]:5);
writeln;
readln;
end.</span>
</span>