Получить из сллва "" слово "тематика" ( в pascal)
Ответы
Program llllllllll; var a, b : string; c: integer; begin writeln('введите имя'); readln(a); writeln('введите фамилию'); readln(b); c: =10; while c> 0 do begin write(a,' '); writeln(b); c: =c-1; end; end.
Var n, k: integer; t, v, p : real; begin k: =0; for n : = 100 to 999 do begin p: = n div 100; v : = (n div 10)mod 10; t : = n mod 10; if (v = 2*p) and (t = 2*v) then k: =k+1 ; end; print(k); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Составьте алгоритм ремонта квартиры
Автор: o-lala88387
Напишите программу на языке паскаль к уравнению z=|x-x^n|
Автор: borisrogovpr3407
Нарисовать круги Эйлера и с объяснением, плачу последние (60) . 
Автор: Kalashnikova
По блок-схеме и определите результат выполнения алгоритма, если ввели 7 и 12. Нач Вв. А, В
Автор: Дмитрий_Пергамент669
