fork download 
  1. program Lab5_Simplified;
  2.  
  3. var
  4.   x, y, z, f: integer; // Використовуємо звичайний integer для простоти
  5.  
  6. begin
  7.   // 1. Введення даних
  8.   write('Введіть x: '); readln(x);
  9.   write('Введіть y: '); readln(y);
  10.   write('Введіть z: '); readln(z);
  11.  
  12.   // 2. Логіка за умовою варіанту
  13.   if (x = 5) or (z = 0) then
  14.   begin
  15.     f := 6 * x + 2 * y + 1;
  16.     writeln('Умова 1 (x=5 або z=0)');
  17.   end
  18.   else if (y = 0) and (z > 10) then
  19.   begin
  20.     f := z - 3 + 4 * x;
  21.     writeln('Умова 2 (y=0 та z>10)');
  22.   end
  23.   else
  24.   begin
  25.     f := 4 * x + 5 * y - z; // Відповідає вашому Асемблер-коду
  26.     writeln('Умова 3 (інші випадки)');
  27.   end;
  28.  
  29.   // 3. Виведення результату
  30.   writeln('Результат F = ', f);
  31.  
  32.   // Щоб онлайн-компілятор не видав помилку на деяких серверах, 
  33.   // readln в кінці можна залишити або прибрати.
  34.   writeln('Завершено.');
  35. end.
Success #stdin #stdout 0s 5324KB
comments (?)
stdin 
Standard input is empty
stdout 
Введіть x: Введіть y: Введіть z: Умова 1 (x=5 або z=0)
Результат F = 1
Завершено.
https://ideone.com/XxbBxy
language:
Pascal (fpc 3.0.4)
created:
10 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!