Var s: string;begin writeln('Любишь, ли ты мороженое?'); readln(s); if s='Да' then writeln('Я тоже, да') else if s='Нет' then writeln('Я тоже, нет');end.
Ответ:
1100
Объяснение:
Фото. Используй круги Эйлера при решении подобных задач.
Ещё вариант:
#include <iostream>
#include <vector>
#include <algorithm>
using namespace std;
int main()
{
vector<int> v = { 12, 15, 2 };
cout << *max_element(v.begin(), v.end()) << endl;
return 0;
}
Var S:real;
Begin
Write('Введите сумму покупки: ');ReadLn(S);
Write('Сумма покупки с учётом скидки: ');
if S <= 1000 then WriteLn(S)
else if S > 10000 then WriteLn(S*0.8:0:2)
else WriteLn(S*0.9:0:2);
WriteLn('Без учёта скидки: ',S:0:2);
End.
Объем памяти дискеты равен 720 килобайт.