Берем 5л наполняем, выливаем в 3л
в 5л остается 2л.
с 3л просто выливаем - там 0 л
2 л с 5 л кувшина переливаем в 3л.
В 5л кувшин набираем воду и выливаем в 3л кувшин (там уже есть 2л)
В 5л кувшине остается 4л воды
Var a,b,c : real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
if (a+b<=c)or(a+c<=b)or(b+c<=a)
then writeln(0)
else if (a<>b)and(b<>c)and(a<>c)
then writeln(1)
else if (a<>b)or(b<>c) then writeln(2)
else writeln(3);
end.
Пример:
a=3
b=3
c=4
2
Находит максимум среди 5 введенных целых чисел и выводит его.
На сегодняшний день существуют сайты, проводящие тестирование, показывающие теорию при неправильном решении задач.
Прямая связь - показ веб-страниц с заданиями, решениями, теорией. Обратная связь - получение данных о правильности решения задач, регулировка количества задач в зависимости от правильности выполнения.
Преимущества:
- доступ к контенту от лучших учителей
- доступ к урокам в удобное время
- возможность "геймификации" - внедрения игрового процесса обучения
- моментальная проверка задач
- возможность автоматической генерации вариантов задания, делающая задания более разнообразными
Недостатки:
- отсутствие реакции на необычные ситуации
- отсутствие контроля процесса выполнения
- ограниченность круга задач с автоматической проверкой (как правило, тестами)
- недостаток "креативных" задач
Вот пожалуйста. Сделал на PascalABC.NET
program HelloWorld;var i, x, y, z: integer;begin
i:=1;while i<>0 do begin readln(i); x:=x+i; if i>0 then y:=y+1; if i<0 z:=z+1 end;writeln(x, ';', y-z); end.