Var n,i: integer; begin readln(n); for i: =1 to 9 do writeln(n,'*',i,'=',n*i); end.
Спасибо
Ответ дал: Гость
в египетском письме было более 750 иероглифов, не было гласных. иероглифы обозначали целые слоги и звуки.
Ответ дал: Гость
var s : string; k,f : longint; begin readln(s); val(s[1],k,f); if f< > 0 then writeln('некоректно введена строка') else if length(s)-1=k then writeln('равно') else writeln('неравно'); end.
Популярные вопросы