Объясните решение задачи

@Настя Силина · Регистрация: 04.09.2013

Author24 — интернет-сервис помощи студентам

Pascal

var f1,f2:text; a,b,c,x:integer;
begin
assign (f1,'input.txt');
assign (f2,'output.txt');
reset(f1);
rewrite(f2);
read(f1,a);
read(f1,b);
read(f1,c);
x:=a*b*c*2;
write(f2,x);
close(f1);
close(f2);
end.

объясните решение задачи?

Добавлено через 9 минут
Пожалуйста объясните как работает программа?

@кот Бегемот · 01.12.2013, 21:51

Сообщение от Настя Силина

read(a);
read(b);
read(c);
x:=a*b*c*2;
write(x);

А так понятно?

@кот Бегемот Платежеспособный зверь 8924 / 4352 / 1642 Регистрация: 28.10.2009 Сообщений: 11,567
	01.12.2013, 21:51	2
	Сообщение от Настя Силина read(a); read(b); read(c); x:=abc*2; write(x); А так понятно? 0

Опции темы