Попросила как то меня мою избранница помочь ей сделать задачки по программированию, но программирование необходимо было выполнять в мертвом языке “PASKAL”
Для себя я нашел хороший и практичный онлайн редактор кодов
была задачка написать код а потом блок схему
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
program perinetr; var A,d,B,i: integer; begin write ('Введите значение А -->'); readln(A); i:=A; write('Введите b--> '); readln(B); while i<=B do inc(i); begin if i mod 3=0 then begin d:=(A+B); writeln ('Значение d = ',d); end; end; write ('Введено не корректное значение '); end. |