Primer_1.pas
program dopisyvaem;
var
n,k,r:integer;
begin
write(’Введите двузначное число: ’); readln(n);
write(’Введите одну цифру: ’); readln(k);
r:=k*1000+k+n*10 + 100;
writeln(’Получилось ’,r);
readln;
end.
Пример2Пример2.pas
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть