Нужно написать программку в паскале.Задание 23.Заблаговременно спасибо
Нужно написать программу в паскале.Задание 23.Заблаговременно спасибо
Задать свой вопрос
2 ответа
Kolja Arfenov
Program mr_zerkalka;
uses crt;
var y,c,t,g,z,x:integer;
begin
wrtiteln('x=');
readln(x);
if x=gt;0 then
z:=4*x;
if xlt;0 then
z:=sqr(x);
wrtiteln('c=,t=,g=');
readln(c,t,g);
if z=gt;0 then
y:=c*t*g*z;
if zlt;0 then
y:=t*g*z;
writeln('z=',z);
writeln('y=',y);
end.
uses crt;
var y,c,t,g,z,x:integer;
begin
wrtiteln('x=');
readln(x);
if x=gt;0 then
z:=4*x;
if xlt;0 then
z:=sqr(x);
wrtiteln('c=,t=,g=');
readln(c,t,g);
if z=gt;0 then
y:=c*t*g*z;
if zlt;0 then
y:=t*g*z;
writeln('z=',z);
writeln('y=',y);
end.
Инна
Понятия не имею, ее нужно перевести в вид программки шобы на паскале работало. Если поможешь, то необъятная признательность тебе.
Семён Ковылянский
все
Владислав Тонузов
Free Pascal Compiler version 3.0.2 [2017/03/27] for x86_64Copyright (c) 1993-2017 by Florian Klaempfl and othersTarget OS: Linux for x86-64Compiling main.pasmain.pas(5,1) Error: Identifier not found "wrtiteln"main.pas(7,6) Error: Illegal expressionmain.pas(7,7) Fatal: Syntax error, "THEN" expected but "ordinal const" foundFatal: Compilation abortedError: /usr/bin/ppcx64 returned an error exitcode
Ева Хоритонова
Написало ошибку какую-то
Данька
wrtiteln у меня ошибка в написании правильно writeln
Полончук
Аделина
но код рабочий теснее проверил
Антонина
спасибо
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Облако тегов