<span>function f1(t1){
if((t1/2)==parseInt(t1/2)) return "Число чётное"; else return "Число нечётное";
}
var a=prompt("Введите число");
alert(f1(a));<span>
</span></span>
Если считать, что больные продолжают ходить в школу, заражая каждый день людей, и при этом они не выздоравливают через 7 дней, то так:
var vsego, boleet,den:integer;
begin
writeln('Сколько всего человек: ');
Readln(vsego);
boleet:=1;
while boleet<vsego do begin
den:=den+1;
boleet:=boleet*4+boleet;
writeln('День ',den, ' - заразились и болеют уже ', boleet, ' человек');
end;
writeln('Всего учеников: ', vsego, ', Через ',den, ' дней заболеют ', boleet, ' учеников (если бы их было столько), но т.к. их столько нет, да и школу бы всё равно на карантин закрыли, то будем считать, что заболеют все ', vsego);
end.
IVAN.DOC
КУКУ.BMP
A.B.TXT
LIN?.EXE нельзя ибо ? недопустимый символ.
TREE*.BMP опять же недопустимый символ
Поле чудес.EXE хз почему, но вроде как нельзя EXE русскими буквами называть при компиляции.
<span>1) В трёх мешках 538 конфет. В первом и во втором 366 конфет, а во втором и в третьем - 407. Сколько конфет во втором мешке?
</span>Задача 1
Пусть в 3-м мешке x конфет. Тогда x+366=538 конфет
x=538-366=172 конфеты
407-172=235 конфет - 2 мешок
PROGRAM MAIN
INTEGER I,J,K
LOGICAL FLAG
INTEGER A,B
DIMENSION A(5,10)
DIMENSION B(50)
EQUIVALENCE (A,B)
READ *,(B(I),I=1,50)
DO 70 I=1,5
PRINT *,(A(I,J),J=1,10)
70 CONTINUE
DO 100 J=10,1,-1
FLAG=.TRUE.
K=J
DO 200 I=1,5
IF (A(I,J) .LE. 0) THEN
FLAG=.FALSE.
GOTO 100
END IF
200 CONTINUE
IF (FLAG) GOTO 300
100 CONTINUE
300 PRINT *,'k=',K
END PROGRAM MAIN
