Составить по алгоритму программу на языке программирования Pascal?
Составить по алгоритму программу на языке программирования Pascal.
Составить по алгоритму программу на языке программирования Pascal?
Составить по алгоритму программу на языке программирования Pascal.
Опишите структуру программы на языке программирования pascal?
Опишите структуру программы на языке программирования pascal.
Составить по алгоритму программу на языке программирования Pascal?
Составить по алгоритму программу на языке программирования Pascal.
Составить программу на языке pascal abc?
Составить программу на языке pascal abc.
По алгоритму (Алгоритм приложен).
Алгоритм (блок - схема, программа на языке Pascal) для нахождения максимального элемента в массиве из 10 случайных элементов?
Алгоритм (блок - схема, программа на языке Pascal) для нахождения максимального элемента в массиве из 10 случайных элементов.
Составить алгоритм (блок - схема, программа на языке Pascal) для нахождения максимального элемента в массиве из 10 случайных элементов?
Составить алгоритм (блок - схема, программа на языке Pascal) для нахождения максимального элемента в массиве из 10 случайных элементов.
Программирование алгоритмов ветвления ?
Программирование алгоритмов ветвления .
Составить программу на Pascal.
Написать программы на языке программирования?
Написать программы на языке программирования.
Подскажите?
Подскажите.
Описание массива в языке программирования pascal.
На этой странице сайта размещен вопрос Составить по алгоритму программу на языке программирования Pascal? из категории Информатика с правильным ответом на него. Уровень сложности вопроса соответствует знаниям учеников 10 - 11 классов. Здесь же находятся ответы по заданному поиску, которые вы найдете с помощью автоматической системы. Одновременно с ответом на ваш вопрос показаны другие, похожие варианты по заданной теме. На этой странице можно обсудить все варианты ответов с другими пользователями сайта и получить от них наиболее полную подсказку.
Program q1 ;
var x, y, z, q : real ;
begin
readln(x) ;
readln(y) ;
q : = y * y + x * x ;
if(q< ; 1) then do z : = q ;
if(q> ; 1) then do z : = 0.
5 ;
if(q = 1) then do z : = x + y ;
writeln(z) ;
end.